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FOR (EZ PERSONAL COMPUTER USERS 


Sprite Design And Animation 
Our best-ever sprite editor—*‘Sprite Magic’—plus three 
exciting support programs. Your 64 will come alive with 
colorful graphics and animation. 


mr 80-Column 
-s Disk Sector Editor 
AC For The 128 
A powerful program you 
can use to quickly inspect 
and alter anything on 








your disks. 
cae Li i2 hghrisns Hy 
F Li Dynamusic 
i ont ine Easily compose music on 
Board-game strategy plus arcade-style action in this the 64—and play your 
two-player combat simulation for the 64. A unique, creation while another 


fascinating challenge for game players of all shi prog is ron, 











: Bounty Hunter 

| An educational game that’s so much fun you 
won't notice you’re learning U.S. geography. 

For the 64. 
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DUNGEON SLIME 
NEVER LOOKED), 
SO GOOD 


In most dungeon Ee) 
games, you can't really * x 
see the slime on the 
dungeon walls. Or watch| 
monsters coming after 
you. 








Introducing Legacy of the 
Ancients. It's a new fantasy 
role-playing adventure , Y 
that offers the richest 
graphics ever seen ina 
fantasy game. An 

something more. 


Adangerous quest ata 
furious pace. Dungeons, 
castles, and towns to 
explore. Puzzles. | 
Gambling. Fighting. 
Magic. In short, 
everything you 

love about 
fantasy games. 
And lots of new 
things you've 
never seen 
before. 
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Flickering torchlight on moldy walls. 


Blood stains on a monster's teeth. 





Explore 24 dungeon levels, each with 
‘different look and chailenge. 


The displays in the Time-Space 


Museum can be doorways to 
new worlds. 


‘Trek through vast wilderness areas. 
Talk to the locals. Some will want 
to help. Some are good to eat. 





Incredible graphic at 
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Master five different action games 
to win, Visit casinos for extra gold— 
or build up your character points 
in the combat-training canters. 


12 different towns. Pick bp some 
magic spells. Stock up on Weapons: 
and armor, Rob the bank on your: 
way out. 


HOW TO ORDER: VISIT YOUR RETAILER OR CALL 
800-245-4525 FOR DIRECT VISA OR MASTERCARD ORDERS: 
(IN CA CALL 800-562-1112). The Direct Price is $29.95 for the C-64 
version. To buy by mail, send check 
‘or money order to Electronic Arts 
Direct Sales, P.O. Box 7530, 

San Mateo, CA 94403, Add $3 for 
shipping and handling ($5 Canadian), 
There is a 14-day, money-back 
guarantee on direct orders, 





ELECTRONIC ARTS ® 


Exciting & New! 






CONIMORORE 


64/128 
POWER 
BASIC 








Commodore 64/128 Books 


from COMPUTE! 


Get more power, education, and relaxation from your Commodore 64 or 128 with these 
new books from COMPUTEI. And, as always, the programs are thoroughly tested and easy 
to enter using our special program entry system. (Disks are available, too.) 


COMPUTEI's Commodore 64/128 
Power BASIC 

Edited 

Collected in this one volume are more 
than two dozen short BASIC programs 
from COMPUTE!'s Gazette's popular 
monthly column, “Power BASIC.” In- 
cluded are utilities that add an 8K RAM 
disk; read and write to disk sectors; 
make programs read joysticks more 
quickly; and automatically generate line 
numbers, There are also programs such 
as "Stop and Go,” which creates a 
pause button to temporarily halt a pro- 
gram, and “Time Clock,” which puts a 
digital clock on your screen, There is a 
companion disk available for $12.95 
which includes all the programs from 
the book, (998BDSK) 

$16.95 (SBN 0-87455-099-8 


COMPUTEI's More Machine Language 
Games for the Commodore 64 

Edited 

Seven of the best machine language 
games for the 64 have been gathered 
into one volume in this follow-up to the 
popular COMPUTE!'s Machine Language 
Games for the Commodore 64. Selected 
from recent issues of COMPUTE! and 
COMPUTE!'s Gazette, the games range 
from the frantic “Prisonball’' to the 
delightful "Biker Dave." This is more than 
just a collection of exciting fast-action 
games, though, because complete and 
commented source code for each pro- 
gram is included in the book. Machine 
language programmers can see exactly 
how each game |s written and what de- 
sign techniques are used. A disk is avail- 
able for $12.95 which Includes all the 
programs in the book, including source 
code. (947BDSK), 

$16.95 ISBN 0-87455-094-7 


COMPUTE!'s Third Book of Commodore 
64 Games 

Edited 

COMPUTE! Publications, the leading pub- 
lisher of programs for the Commodore 
64, has brought together another excit- 
ing collection of nerve-tingling games 
that will delight the whole family—from 
preschoolers to teenage arcade fans to 
those who enjoy games of logic, Clearly 
written, with non-technical instructions, 
this book contains hours of challenging 
entertainment for beginning computer 
fans as well as experienced pro- 
grammers. There is a companion disk 
available for $12.95 that includes all the 
programs in the book. (955BDSK), 
$15.95 ISBN 0-87455-095-5 


These books are now available at your local book or computer store. 
You can also order directly from COMPUTE! by calling toll free 800-346-6767 
(in NY call 212-887-8525) or mailing your order to COMPUTE! Books, P.O. Box 5038, 


F.D.R. Station, New York, NY 10150. 


Please include $2.00 postage and handling per book or disk. NC residents add 5 percent sales tax and NY residents 


add 8.25 percent sales tax. 
Please allow 4-6 weeks for delivery. 





COMPUTE! Publications,Inc. 


Part of ABC Consumer Magazines, Inc. 
‘One of the ASC Publishing Companies 


COMPUTE! books are available outside the United States 
from subsidiaries of McGraw-Hill International Book Company, 


| 
~WE’VE BLOWN THE COMPETITI 


Up Periscope!, the new state of the 
art in submarine simulation! Blow- 
ing the competition out of the water 
with superior combat strategy and 
tactics courtesy of Captain John 
Patten, USN (Ret.). With true 
animated 3D graphics courtesy of 
SubLOGIC. Up Periscope!, 
generations ahead of the pack! 


~ $29.95 - 


Better Engineering at a Better 
Price 





For Commodore es 





Compare hits for yourself! Up Periscope! Silent Service 









































Fire 1 Suggested Retail Price $34.95 
Fire 2 3-Dimensional Graphics No 
Fire 3 Number of Scenarios 3 
Fire 4 Spllt-Screen Views No 
Fire 5 Reality Levels 7 
Fire 6 Radar Screen No 
Fire 7 Accu-Sound™ realism No 
Fire 8 Torpedo Types 1 
Fire 9 Auto or Manual Torpedo Launch Yes 
Fire 10 Time-Day-Month-Year Selection Capability No 
Fire 11 Zoom Feature Map or Map View 
Ship Views: Only 
Fire 12 reposts Strategy & Tactics Manual by John Patten, Capt. USN Yes No 
Fire 13 Auto-Load Feature on C128 Yes No 
Fire 14 Joystick Required No Yes 
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STOP PLAYING 
AROUND WITH YOUR 





GEOS $5935 


‘The Graphic Environment 
Operating 
up a whole u 
sibilit 









FONTPACK 1 $2939 


A collection of 20 more fonts 
for use with GEOS applications, 
in various shapes and sizes for 
more expressive and creative 
documents. 








geoPaint, fast-loading 
jurbo and support for all 
compatible applications. 
*Also available for 80 col. C128's. 





's Grabber for 
t from Print Shop!" 
and Print Master™ 


importir 


i a ing and analyzing numerica 
Newsroom™ 


data. Cr your own formulas, 








WRITER’: 
= WORKSHOP $4925 
All the GEOS-compatible tools a 
i , including geoWrite 
footers and 






GEODEX $3935 
The GEOS-compatible directory 
that allows you to create lists by 
name, address, phone number, 
etc. Includes geoMerge to custom- 
ize form letters and invitations. 
*Also available for 80 col. 





features to just: 

and replace t 

Grabber (for converting from 

programs like Paper Clip), geo- 

Merge and LaserWriter printing 
abilit 

*Also available for 80 col. C12 




















GEOPRINT ° 
CABLE 53935 


The six-foot cable that speeds 
up printing because it's paral 








The GEOS-compati 
manager that sorts, edit 
prioritiz wer di 
feed it. You fill out the 














input 


dar; Icon Editor 





perform calculations for any 
from simple geometry to 
t if” cost projections. 





form,” specify your command, 


and geoFile takes it from th 
*Also available for 80 col. 








lel—not serial, 
and 
wires and no inter! 










face box. 


*Also available for 80 col. C128's. 


Sooner or later, you're going to discover 
that there’s more to C64’s and C128’s than fun 
and games. 

You're going to discover power. 

Not the kind of power that blasts aliens 
out of the galaxy. But the kind that whips 
through boatloads of data in seconds. The 
kind that crunches numbers and drafts docu- 


ments like child's play. Fl 
ut) 


The kind you find in GEOS. 


Berkeley 
Softworks 


Every GEOS application can take C64’s 
and C128's from “mastering the universe” to a 
university master’s degree, with all kinds of 
advanced capabilities that function at hyper- 
speeds you never imagined possible. 

So if you're tired of toying with technology, 
try playing around with GEOS. Once you feel 
its power, you'll know that for anyone who 
still thinks Commodores are toys, 
the game's over. 


The brightest minds are working at Berkeley. 





(California residents add 7% 
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800-443-0100 ext. 234 
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reign for shipping and handling. Allow six weeks for delivery. 





seoMerne, gcofile, Deskpack 1, Rntaack 1, Weer 
per Clap are tradenares of campus other than Berhcky Softworks 
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NOUues 


Many personal computers use fans to 
keep them cool. This is a clue to the 
intensity of the activity inside: The 
more that’s going on, and the faster 
it’s going on, the hotter the machine 
gets. After all, there are no fans inside 
TVs or VCRs or other electronic ap- 
pliances, essentially because these 
other appliances aren’t as smart as 
computers. There are far fewer elec- 
tronic switches, the switches operate 
at lower speeds, and they are much 
less densely packed. 

Perhaps you've seen pictures of 
the world’s most sophisticated com- 
puter, the Cray. It looks like one of 
those circular sofas found in hotel 
lobbys, but the bulk of what you see 
is its massive refrigeration unit. The 
computer's circuits are so dense, so 
much is happening in such a small 
space, that without cooling it would 
soon melt, 

A computer is made up of count- 
less little switches, called gates. Right 
now the main barrier to building 
more powerful computers is the 
speed at which these gates can be 
turned on and off. Since every gate 
delays the information slightly as it 
travels through the machine, there is 
a direct relationship between gate 
speed and the resulting speed and 
power of a computer. 

After all, a computer thinks by 
sending information around inside it- 
self until the data has been processed 
in some predetermined fashion. If 
you want the computer to add 2 + 2, 
it sends the first 2 into an arithmetic 
section; the operation (addition) is 
fetched and registered from the gates 
that control the processor; the second 
2 is then sent; the operation is per- 
formed; and the result is sent to other 
gates in a storage area. If you increase 
the speed of these gates, the com- 
puter does more, faster. 

The electrons which carry the 
information within a computer travel 
at pretty much the same speeds no 
matter what conducting materials are 
used. It wouldn’t help much, for ex- 
ample, to substitute silver for copper 
wire. The semi-conducting material 
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does, however, matter. Today’s gates 
are made of silicon, but there has 
been some interest in replacing sili- 
con with a different semiconducting 
material, gallium arsenide, Although 
more expensive, this material switch- 
es somewhat faster than silicon. 
However, this research may now be 
moot. Recent developments suggest 
that a breakthrough in switching 
speed is upon us. You'll likely hear a 
great deal about superconductivity in 
the coming months; it has many ap- 
plications beyond the world of com- 
puting. But discoveries in this field 
may well lead to supercomputers far 
beyond present capacities. 

Since 1911, scientists have 
known that certain metals, when 
cooled to nearly absolute zero 
(—459.4° Fahrenheit), suddenly 
change into superconductors—their 
crystalline structure abruptly be- 
comes far more orderly. Electricity 
flows through them with no resis- 
tance and therefore with virtually no 
loss of power or buildup of heat. Un- 
fortunately, this spectacular effect 
worked only if you continually 
bathed the metal in rare and expen- 
sive liquid helium to maintain that 
unimaginably low temperature, 

Then, last year, using new ce- 
ramic compounds, researchers were 
able to achieve superconductivity at 
—424°, This was a great improve- 
ment because cheaper cooling via liq- 
uid hydrogen became possible. In the 
past few months, however, records 
have been broken right and left. A 
compound was developed that went 
superconductive at —320°, which 
could be cooled by liquid nitrogen. 
Then another was found at —240° 
and another at only —57°. As this is- 
sue was going to press, a New York 
company, Energy Conservation De- 
vices, announced the discovery of a 
material which superconducts at an 
astonishing 9° F. At these high tem- 
peratures, superconduction becomes 
inexpensive and practical. You could 
do it in your home freezer. 

For years IBM had been pouring 
hundreds of millions of dollars into 











this technology without much suc- 
cess. In 1983, the giant computer firm 
halted further research and, as a re- 
sult, interest in superconductivity 
cooled in labs worldwide, But now 
money is pouring in and physicists 
everywhere are mixing exotic com- 
pounds in a race to find the thing that 
goes superconductive at room 
temperature, 

Superconducting materials make 
extremely fast electronic switches. 
Ordinary silicon gates switch in 
10-20 nanoseconds (a nanosecond is 
one-thousandth of a microsecond). 
But superconductive gates switch as 
quickly as .05 picosecond (a picosec- 
ond is one-millionth of a microsec- 
ond, a very short amount of time). 
Superconducting gates thus run mil- 
lions of times faster than their silicon 
counterparts. 

If you make a ring of supercon- 
ducting material and send electric 
current into it, the current flows 
around the ring indefinitely. No resi: 
tance also means very low power re- 
quirements and no heat. 
Superconducting compounds prom- 
ise great advances in such diverse ap- 
plications as extremely sensitive 
medical diagnosis equipment, ultra 
high-speed magnetic trains, far more 
efficient electric power, high-resolu- 
tion radar, and many other break- 
throughs not yet conceived. The 
technology may also make possible 
the construction of inexpensively 
powered supercomputers: desktop 
machines far, far more powerful than 
the Cray. 


EL ee 


Richard Mansfield 
Editorial Director 








ECHELON 























ECHELON... Atop secret military facility where a 
few highly skilled pilots will be trained to operate the 
2ist Century's most awesome combat and 
exploration vehicle, the Lockheed C-104 Tomahawk. 
The C-104 spacecraft has the latest in advanced 
instrumentation, weaponry, and control systems. 


‘ACTUAL C-64 SCREENS 





Available Now For €-64/128. 
Enhanced versions coming soon for APPLE, IBM, AMIGA, ATARI ST, 
and COMMODORE 128. 


IT'S IMPRESSIVE ATTRIBUTES INCLUDE 
= 4 Different “State of the Art’” Weapons Systems 









AGTUAL-AMIOA OF 


= Bi-Directional Transporter Unit 


- Unmanned RPV (Remote Piloted Vehicle) Control 


= Anti-Gravity Braking and Hovering 
= Forward and Reverse Thrusters 

- Twin 3-D Screens 

~ Real-Time Infrared Vector Graphics 


= Non Real-Time Computer Enhanced Graphics 


~ Computer Assisted Control Systems 
= Computer Information Data Link 
= On Board Sub-Atomic Analyzer/Decoder 








i 


i 





Software Incorporated 


3-D SPACE FLIGHT SIMULATOR 





w 





ECHELON is a true 3-D space fight simulator that puts you at the 
controls of the C-104 Tomahawk and in the heart of the action, You'll 
experience the excitement and thrill of real spacelight through 
superb three dimensional graphics, But, before you go exploring on 
your own, it would be wise to go through the carefully designed 
training simulators, These rigorous courses will develop your skits in 
‘manuevering the spacecraft, accurate selection and use of weapons, 
control of RPV's, object retrioval and reluel and docking procedures. 
Developing these skils are essential to your survival when 
‘encountering hostile enemy spacecratt or exploring unknown terrain, 
ECHELON is available now and offers you the Simulation Adventure 
oa Lifetime for only $39.95!! 





you can’t find our products at your local dealer, you can order 
direct. For mail orders, enclose check or money order, plus 
$1.00 shipping and handling, and specity machine version 
desired. Order by phone on VISA, MasterCard or C.0.0. by 
calling TOLL FREE (800) 824-2549. 

‘ACCESS SOFTWARE, INC, 2561 So, 1560 W. Wood Cross, UT 84087 
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Authors of manuscripts warrant that all materials submitted to ComPUTErs 
GAZETTE are original materials with full ownership tights resident in said 
authors, By submitting articles to COMPUTE!s GAZETTE, authors acknowledge 
that such materials, upon acceptance for publication, become the exclusive 
property of COMPUTE! Publications, Inc. No portion of this magazine may be 
reproduced in any form without written permission from the publisher, Entire 
contents copyright © 1987 COMPUTE! Publications, Inc. Rights to programs 
developed and submitted by authors are explained in our author contract. Un- 
solicited materials not accepted for publication will be returned if author 

Vides a self-addressed, stamped envelope, Where programs are included in an 
article submission, a tape or disk must accompany the submission, Printed list- 
ings are optional, but helpful, Articles should be furnished as typed copy (up- 
per and lowercase, please) with double spacing. Each article page should bear 
the ttle ofthe article, date, and name of the author. COMPUTE! Publications, 
Inc,, assumes no liability for errors in articles or advertisements, Opinions ex- 
pressed by authors are not necessarily those of COMPUTE! Publications, Inc. 
COMPUTE! Publications assumes no responsibility for damages, delays, or fale 
ure of shipment in connection with authors! offer to make tape or disk copies 
of programs published herein, 


Commodore 64, Plus/4, 16, and 128 are trademarks of Commodore Business 
Machines, Inc., and/or Commodore Electronics Limited, Other than as an 
independent supplier of quality information and services to owners and users 
of Commodore products, COMPUTE! Publications, Inc., is in no way asso- 
iated with Commodore Business Machines, Inc., or any of its subsidiaries, 























New books 


from COMPUTE! 


COMPUTE! Books is bringing you a brand new 
line up of books for your Commodore 64 and 
128. These recent releases offer you everything 
from programming hints to exciting games, from 
educational to home and business applications. 








Pascal for Beginners 


$14.95 0-87455-068-8 
Book/disk combination for the Commodore 64 
$29.95 ISBN 0-87455-069-6 


This introductory text to standard Pascal on any computer is 
an ideal tutorial for anyone who wants to leam this powerful 
computer language. It includes everything you need, Includ- 
Ing an introductory Pascal interpreter* for the Commodore 64 
and 128 in 64 mode, ready to type in and use. Written in plain 
English and offering numerous program examples, it gently 
and clearly explains standard Pascal and structured program- 
ming. Latter sections include discussions of advanced topics 
such as files and dynamic data storage. There is also an op- 
tlonal disk available for $12.95 for the Commodore 64 which 
Includes most of the programs in the book. 688BDSK. 

“The Commodore 64 Pascal interpreter Is not full-featured, 
but still a powerful Implementation of Pascal which sults the 
needs of most beginners. 


COMPUTEI's Music System 

for the Commodore 64 and 128 

Book/disk combination only 

$24,95 ISBN 0-87455-074-2 
Sidplayer, the feature-packed, popular music player and edi- 
tor program, Is now more versatile and more impressive than 
before. Enhanced Sidplayer for the Commodore 128 and 64 
includes two new versions—one for the Commodore 128 run- 
ning in 128 mode and another for the Commodore 64. Take 
advantage of every feature the SID chip (the sound chip in 
the 128 and 64) has to offer. Just like the original, Enhanced 
Sidplayer Is easy to learn and use, with many powerful new 
features, The accompanying disk contains the editor, player 
programs (including a Singalong program), utilities, and sam- 
ple music that you can enjoy immediately or change. The 
new Sidplayer plays any songs created by the original 
Sidplayer for the Commodore 64. 





User's Guide to GEOS: geoPaint and geoWrite 
$18.95 ISBN 0-87455-080-7 
Learn the ins and outs of GEOS, the new icon-based operat- 
ing system for the new Commodore 64C and the 64, with this 
step-by-step guide. Everything from creating simple letters 
with geoWrite and pictures with geoPaint to merging text and 
graphics and using desk accessories is clearly and concisely 
explained, 


COMPUTEI's Second Book of the Commodore 128 
$16.95 ISBN 0-87455-077-7 
The editors at COMPUTE! Publications have collected some of 
the best games, programs, and tutorials for the Commodore 
128 (in 128 mode) from COMPUTE! magazine and COMPUTE!'s 
Gazette. Like COMPUTE!'s First Book of the Commodore 128, 
this book offers a variety of programs and articles for every 
128 user. Each program has been fully tested and |s ready to 
type in and use on the Commodore 128 running In 128 mode. 
There is also a disk available for $12.95 which includes the pro- 
grams in the book. 777BDSK. 


Mapping the Commodore 64, Revised 

$16.95 ISBN 0-87455-082-3 
An update of the bestselling memory map and programming 
guide. It’s a necessity for intermediate and advanced pro- 
grammers. This definitive sourcebook has been expanded and 
now covers the new icon-based GEOS (Graphics Environment 
Operating System) with clear descriptions of how to make it 
work for you. For BASIC and machine language programmers 
of both the Commodore 64 and 64C. 





Look for COMPUTE! Books at your local computer or book store. 
Or, to order directly from COMPUTEI, call toll free 1-800-346-6767 (in NY 212-887-8525) or 
write COMPUTE! Books, P.O. Box 5038, F.D.R. Station, New York, NY 10150. 
Please include shipping and handling: $2.00 per book in U.S. and surface mail; $5.00 airmail 


NC residents add 5 percent sales tax and NY residents add 8.25 percent sales tax. 
Please allow 4-6 weeks for delivery. 


COMPUTE! Publications Inc. 


Part of ABC Consumer Magazines, Inc. 
‘One of the ABC Publishing Companies 


COMPUTE! Books are available outside the United States from 
subsidiaries of McGraw-Hill International Book Company. 


When you want to talk computers.. 


ATARI COMPUTERS 


Atari Computers 
800 XL 64K Compute! 
65XE 64K Computer. 
130XE 132K Computer 
520ST Monochrome System. 
520ST Color System. 


Atari 1040 

Color System $859 
Includes: 1040ST, 1 mb RAM with 312” 
drive built 
Logo, ST language, power supply and 
color monitor. 


RI SOFTWARE 





Access 
Leaderboard Golf... 
Accolade 
Fight Night... 
Activision 
Music Studio 
Antic 

Cad 3-D.... 
Batteries Included 
Paperclip w/Spellpack. 
Degas Elite... 
Epyx 
Championship Wrestling... 
Infocom 

Zork Trilogy...... 
Microprose 





Origin Systems 
Ultima 4... 
Paradox 
Wanderer (3-D). 
Psygnosis 
Deep Space..... 
Timeworks 
Wordwriter ST. 
VIP 
Professional (GEM)..... 











, 192K ROM with TOS, Basic, 






































COMMODORE COMPUTERS 












Amiga 1000 System 
Includes: Amiga 1000 CPU, 512K, 1080 
RGB Monitor, Amiga DOS, Mouse, 


Kaleidoscope $ 1 0 9 9 


Commodore-64C 64K Computer179.00 
Commodore-64C Sys, w/1802C.519.00 
Commodore-128 128K Computer249.00 
Commodore-128 System Pkg....739.00 
Amiga 2000 Computer. «call 
Amiga 500... .Call for pricing 


COMMODORE SOFTWARE 
Activision 











Textcraft w/Graphic Craft. 
Assembler... 
Enhancer DOS 1.2 
Discovery Software 
Marauder Back-up.. 
Electronic Arts 
Deluxe Paint. 
Deluxe Print, 















Hitchhiker's Guide..... 
Micro Illusions 


Micro Systems 
Analyze Version 2.0. 
Scribble... 
On-Line/Comm.. 
Sublogic 

Flight Simulator. 
VALP. 

V.I,P. Professional 

























MS/DOS SYSTEMS 






AT&T 6300. from $1299.00 
Compaq. sfrom 1699.00 
IBM-XT. -from 1099.00 


from 2499.00 
from 999.00 
om 1499.00 
Panasonic Business Partnerfrom 799.00 
Toshiba 1100 Plus. from 1699.00 











PC-TOO 20 Meg 


XT-Compatible *999 


AST 
Six Pak Plus PC/XT.... 
Hercules 

Color Card. 
Graphics Card Plu: 
Fifth Generation 
Logical Connection 256K. 
Quadram 

Silver Quadboard. 
Video 7 

EGA Video Deluxe. 
Zuckerboard 
Color Card w/Parallel 


MS/DOS SOFTWARE 


Ashton-Tate 
d-Base Ill+.... 
5th Generation 
Fastback Utility... 
IMSI 

Optimouse w/Dr, Halo............:.00 99.99 
Lotus 

Lotus 1-2-3. 

MicroPro 

Professional 4.0 w/GL Demo.....: 
Microstuf 
Crosstalk XVI 


























Word Perfect P. 
Word Perfect 4.2... 























Aye | 








- COMPUTER MAIL ORDER 


.......When you want to talk price. 


DRIVES 





SHD204 20 Meg ST Hard DriveS79.00 
Allied Technology 
Apple Half-Heights.... 
Commodore 
Amiga 1010 3¥2" 
1541C 
1571. 
csi 
10 mb (64-128)...... 
Indus 

GT Disk Drive Atari XL/XE. 
Microbotics 

20 mb Hard Drive (Amiga). 
Racore 

Jr. Expansion Chassis.... 
















Seagate 

20 mb ST-225 Hard Drive Kit....369.00 
Supra 

20 Meg Hard Drive (ST) 559.00 
Xebec 

20 mb (Amiga)... 899.00 


Amdek 
Video 300 Amber Comp..... 
Commodore 
Commodore 1902... 
Amiga 1080 Hi-Res Colo! 








Magnavox 8562 
RGB/Composite 


Magnavox 

8505 RGB/Composite. 
NEC 

12" TTL Green or Amber 
JC-1401P3A Multi-Sync.. 
Princeton Graphics 
MAX-12 12" Amber TTL... 
Taxan 

Model 124 12" Amber. 
Zenith 

ZVM 1220/1230... 


$279 











MONITOR: 








MODEMS 


VOLKSMODEM 1= 





Anchor 

Volksmodem 1200 $9999 
Anchor 

6480 C64/128 1200 Baud........ $119.00 
M520 ST520/1040 1200 Baud.129.00 
Atari 

XM301 300 Baud.. 
Best 

1200 Baud External 
Commodore 

Amiga 1680-1200 BPS. 
CBM 1670 & C-128)... 
Everex 


42.99 











Evercom 1200 Baud Internal. 





Smartmodem 1200 External. 
Novation 
Parrot 1200. 
Practical Peripherals 
1200 BPS External. 
Supra 

MPP-1064 AD/AA C64.. 
1200AT 1200 Baud Atari 
U.S. Robotics 

1200 Baud External 
2400 Baud Internal. 


DISKETTES 


Maxell 
MD1-M SS/DD 5%" 
MD2-DM DS/DD 5% 
MF1-DDM SS/DD 3¥2 
MF2-DDM DS/DD 3¥2". 
Sony 

MD1D SS/DD 5%" 
MD2D DS/DD 5% 

























Hewlett-Packard Calculators 


28C Scientific Pro. 
18C Business Consultant. 
12C Slim Financial. 











PRINTERS 


Atari 

1020 XL/XE Plotter... 
1025 XL/XE Dot Matrix. 
XDM121 Letter Quality. 
XMM801 XL/XE Dot Matti 
XMMB804ST Dot Matrix.. 
Brother 

M-1109 100 cps, 9 pi 
M-1409 180 cps, 9 pil 
Citizen 

MSP-10 160 cps, 80-Column. 
Premier 35 cps Daisywheel.. 
C.ltoh 

8510-SP 180 cps, 80-Column. 


















Epson LX-86 


120 cps w/FREE $ 189 
Sheet Feeder, while supplies last! 
Epson 

LX-800 150 cps, Dot Matrix. 
FX-86E 240 cps, 80-column. 
FX286E 240 cps, 132-column. 
EX-800 300 cps, 80-column. 
LQ-800 180 cps, 24-Wire. 
Hewlett Packard 

Thinkjet 
NEC 
Pinwriter 660 24 Wire. 
Pinwriter 760 24 Wire. 
Okidata 

Okimate 20 Color Printer. 
ML-182 120 cps, 80-column K 
ML-192+ 200 cps, 80-column...369.00 
ML-193+ 200 cps, 132-column.549.00 
Panasonic 

KX-1080i 120 cps, 80-column....219.00 
KX-1091i 180 cps, 80-column....299,00 
KX-P3131 22 cps Daisywheel....289.00 
Star Micronics 

NX-10 120 cps, 80-column 209.00 
NX-10C 120 cps, C64 Interface.219,00 
NX-15 120 cps, 132-column......369,00 
Toshiba 

P321SL 216 cps, 24-Pin Head...549.00 























In the U.S.A. and in Canada 


Call toll-free: 1-800-233-8950. 


Outside the U.S.A. call 717-327-9575 Telex 5106017898 Fax 717-327-1217 
Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 


CMO. 477 East Third Street, Dept. A408, Williamsport, PA 17701 
ALL MAJOR CREDIT CARDS ACCEPTED. 


POLICY: Add 3% (minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks 
to clear. For faster delivery use your credit card or send cashier's check or bank money order. Pennsylvania residents add 6% sales tax. All prices are U.S.A. 
prices and are subject to change and all items are subject to availability. Defective software will be replaced with the same item only. Hardware will be replaced 
or repaired at our discretion within the terms and limits of the manufacturer's warranty. We cannot guarantee compatibility. All sales are final and retumed shipments 


are subject to a restocking fee. 





ee 


Do you have a question or a problem? 
Have you discovered something that 
could help other Commodore users? We 
want to hear from you. Write to 
Gazette Feedback, COMPUTE!s Gazette, 
P.O, Box 5406, Greensboro, NC 27403, 
We regret that due to the volume of 
mail received, we cannot respond indi- 
vidually to programming questions. 


The Rules For Using Numbers 


Ihave tried for several weeks to find an 
answer to my question by my own re- 
search, but with no luck. It’s about to 
drive me up the wall. The attached pro- 
gram printout doesn’t make sense to 
me. What do the numbers in the DATA 
statements mean? I know there are 73 
data elements and that line 10 POKEs 
them into consecutive bytes of memory 
starting at 49152, but what do the num- 
bers do? If you were writing a program, 
how would you know what numbers to 
put in to do what you wanted? 

Bob Wagner 


The data you question starts out like this: 
1 DATA 169,254,45,14,220,141,14 


DATA statements can hold many 
types of information. Those numbers 
might be sports scores, stock prices, or 
shoe sizes. 

In this case the data holds a machine 
language program. Later in the program a 
SYS 49152 occurs, and 49152 is where 
these numbers are POKEd at the begin- 
ning of the program. The SYS command 
transfers control from BASIC to a machine 
language routine. To find out what these 
DATA statements mean, you must disas- 
semble them. To do this you need a table 
of opcodes for the 6502 microprocessor. 
First look up 169 in the table. You find 
that 169 isan LDA immediate instruction 
and that it takes a one-byte argument. 
That means that the next byte is the oper- 
and for the LDA instruction. So the actual 
instruction is LDA #254, Following this 
process again, we find that the next num- 
ber represents AND, and it takes a two- 
byte address, which in this case is 
14+ 220°256; so, we have AND 56334. Of 
course, you have to know machine lan- 
guage to understand what the routine does 
and how it does it. Disassembling is a pow- 
erful tool for learning how other program- 
mers do the things they do. So how does 
anyone know what numbers to put into the 
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ack 


DATA statements? Most machine lan- 
Suage programmers use an assembler to 
write their programs, The assembler takes 
source code and converts it into bytes in 
memory, Later, these bytes are copied from 
memory into DATA statements. 





A Light At The End Of The File 

I am writing a program to read a se- 
quential file on disk and print it on a 
printer. The program below works fine 
except when it comes to the last data 
item in the file, which it keeps printing 
forever: 


10 OPEN 2, 8, 2, “IMP.DATES,S,R” 
20 OPEN 3,4 

30 INPUT#2, AS 

40 PRINT#3, A$ 

50 IF ST=0 THEN 30 

60 CLOSE2: CLOSE3 


The problem is the variable ST in 
line 50; it never equals 64. Could you 
please let me know if there is a way to 
fix this? 

Yousef Eisa Ebrahim 


The variable ST tells you the STatus of the 
last serial bus input/output operation. 
Like TI and TI$, it's a reserved variable 
which is automatically updated by the 
computer. 

Your program is almost correct, but 
you're not checking ST soon enough. After 
the INPUT# in line 30, ST equals 64 if the 
program has reached the end of the file. 
Testing the value of ST is one way to find 
the end of a disk file. 

But the PRINT¢# in line 40 is also a 
serial bus input/output operation. It re- 
sets ST to 0, indicating that the printer 
didn't return any error codes. To fix the 
program, record the value of ST in another 
variable after the INPUT# from the file, 
but before the PRINT# occurs. For your 
example, add a line 35 Q=ST. Then 
change line 50 to IF Q=0 THEN 30. 
When the last piece of data is read from 
the file, the program will end. 


Hiding Data From The User 
Is there a way to prevent people from 
listing a BASIC program? I’m writing an 
adventure game and want to hide the 
listing. 

Troy Pladson 


There are several tricks ranging from sim- 





Editors and Readers 


ple to complicated that prevent a BASIC 
program from being listed. One is to put a 
colon, a REM, and a shifted L at the end of 
a line (this works on the 64 but not the 
128), The line will list, but the L causes an 
error message to print, and the listing 
stops. You can also add to a line a REM 
and two quotation marks (then delete the 
second one, 50 you're not in quote mode); 
then add RVS ON and a series of reversed 
Ts, which will act like DELete characters. 

The problem with these schemes is 
that no matter how clever you are with 
protecting your program from being list- 
ed, there are usually a large number of 
people who can figure out what you did 
and get around it, For example, a tech- 
nique that prevents you from listing to the 
screen doesn’t always work on printer 
listings. 

If you've stored in DATA statements 
the messages, room descriptions, trea- 
sures, traps, and other miscellany, it’s 
possible that someone would list the pro- 
gram to figure it out instead of learning by 
playing the game. There are several ways 
to foil nosy users. You could put the infor- 
mation in a sequential file instead of in 
DATA statements, Another possibility is 
to encode the information by using ASC 
and CHR$ to convert characters to ASCII 
numbers and turn them into codes that 
aren't easily read. You could also put in 
some false paths, like a room containing 
huge amounts of gold, but no doors that 
lead to it, Someone who read through the 
listing might spend a lot of time trying to 
find the imaginary treasure trove. 





128 Percussion 
I'm writing a synthesizer program, and 
I'd like to know how to create sounds 
on my 128 like bass drums, snares, and 
cymbals. The percussion sounds soft- 
ware designers come up with sound 
mainly like hand claps. 

Jesse Jack 


The SID (Sound Interface Device) chip 
found in the 128 can make very sophisti- 
cated sounds. The 128’s BASIC 7.0 sup- 
ports the SID chip with six music 
commands: VOL, SOUND, ENVELOPE, 
TEMPO, PLAY, and FILTER. To get 
rhythm sounds such as the snare drum, 
bass drum, and cymbal, only a few steps 
are necessary. 

Here's a program for the 128 that de- 








fines some percussion sounds and plays a 
rhythm track: 


10 TEMPO 32:ENVELOPE 1,0,4,0,3 
,3:ENVELOPE 2,0,05,2,0,3:EN 
VELOPE 3,0,0,0,3,3:FILTER 9 
36,0,1,6 

20 PLAY "V1XOT1U15V3XOT3U15V2x 
172u15" 

30 PLAY "MV206HCV30@HCV206QCMV 
30QCMV206HCV1LOGHCV206HC" 

48 GOTO 30 


For more about how the SID chip 
works, see “Exploring the SID Chip” else- 
where in this issue. 





Replacement Supplies For The 1520 


Tloved the tip in the May issue for turn- 
ing the Commodore 1520 printer/plotter 
from device 6 into device 4. I dug mine 
out of the closet and in ten minutes had 
it working. But I was out of paper. I've 
looked everywhere, but have had no 
luck. Can you help? 

Harold Wallace 


Commodore no longer makes the 1520 
printer/plotter or supplies for it, but 
there's an alternate source. Radio Shack 
once sold a printer/plotter which was 
very similar to the 1520. The pens and pa- 
per for the Radio Shack plotter will fit the 
1520. A local store will either have them 
in stock or be able to order them for you. 





BSAVE For Variables? 


I've found that with my 128, saving 
sprite data or other information directly 
from memory to binary files with 
BSAVE is faster than saving variables to 
data files. Is it possible to BSAVE vari- 
ables? How would you do it? 

Michael Petracek 


You're right, writing to a sequential file is 
slower than BSAVEing a portion of memo- 
ry. Here's why: A program that writes 
variable values to a file (using PRINT#) 
sends ASCII characters. For example, if 
the variable X holds the number —513.68, 
the command PRINT#1, X would send a 
minus sign, the ASCII character for 5 
(CHRS$(53)), the ASCII character for 1, the 
ASCII character for 3, and so on. When the 
program reads such a file, it has to convert 
the individual characters into the five 
bytes that represent a floating-point num- 
ber. Also, a program that reads a file byte 
by byte has some delays between the char- 
acters, partly because it's checking for the 
last character in the variable value. 
Theoretically, it’s possible to BSAVE 
variables from bank 1 and later BLOAD 
them into memory, but you'd have to un- 
derstand how variables are stored in 
memory. Simple variables such as AS, 
QQ, or Y1% (string, floating-point, or 
integer variables that are not arrays) use 
two bytes for the variable name and five 
for the variable descriptor, which is either 
a binary representation of a number or (for 








strings) more information about the vari- 
able. With numeric variables (floating- 
point and integer), the binary value is 
self-contained in the five bytes immedi- 
ately following the two bytes for the name. 
String variables use one of the five bytes to 
hold the string length and use two more as 
a pointer to high memory where the actual 
string is located (these strings move 
around from time to time, in the process 
called garbage collection). On the 128— 
but not on the 64—the strings in high 
memory are immediately followed by a 
two-byte pointer that points back to the 
descriptor in low memory. 

What this means is that you can’t just 
BSAVE the string information; you'd have 
to BSAVE at least two portions of memory, 





plus you'd probably have to sacrifice all 
other strings, and you'd have to save a 
large amount of garbage (unless you forced 
garbage collection with the FRE(1) func- 
tion). You'd need to save the zero-page 
string pointers, too. You'd have to use sev- 
eral BSAVEs, which would take more time 
than it’s worth. 

So strings are out of the question, but 
numeric variables could be BSAVEd. To 
find the address of a particular variable, 
use the POINTER function, which returns 
a pointer to the first of the five bytes con- 
taining the value, just past the two bytes 
of the variable name. You'd have to 
BSAVE the byte from the address returned 
by POINTER, plus the following four 
bytes. The best application for BSAVEing 





‘THE GRAPHICS TRANSFORMER js» Commodore 64 (and C128 in C-64 mode) utility for converting and enhancing 


graphics pictures between existing drawing programs. 


1 Will convert graphic picturos betwoen any of the 
following progeams— «DOODLE 


Will convert betwoen Hi-res and Multicolour! 
All conversion takes place in ane easy atep, 
1 All modulos uso fast disk VO! 


Convert any picture with the MULTI FILE option, to 
save bitmap, scroen, and colour memory seperately 
for development use. 

1 Alloptions menu driven, designed for fast & vasy use. 

1 Allof those features and more for the eccentric prico 

‘of only $34.95! 


ease ven vs any quesons/comorts/sopgeon oth Graphics Trantor and/or out corporate tayo an we woud hk you 1 fel Important at Wel 


ab 


Phone: (916) 842-3431 


Dealer and Distributor Inquiries Invited 


P.O. BOX 1052— YREKA, CA 96097 


Complete Data Automation, Inc. 


$3495 


Prug 2.00 shipping & handling 
Calli. res. add 696 sales tax 





COMPUTE!s Gazette August 1987 13 


dee 





Don't Settle For Less...tcp 


RAN 





COMMODORE 128= 
KKK 


1754 ‘Ram Expai 
works with pon ese a eee 


1351 House 


















COMMODORE 64¢ 






Comimodore PC 10/2. 
TAH $729.00. 
BC Compatibles from Commodard 
‘Ipcuda Borland Sidakick Sofware. 


1901Monochrome Monitor. 


“AMIGA PACKAGES N 
seetnnenee SCALE 





~ $159.95 — 


includes GEOS & Quantrum Link . 
1541C Disk Drive .. $169.95 
1802C Monitor 


“PACKAGE DEAL $299.00 




















PACKAGE DEAL 7 9. 00 


Includes: 1571 Disk Drive, Elther Commodore Includes: Enhancer 2000 Disk Drive, (2) Joy FOIERC 
19024 or Magnavox 8562 Color Monitors, Box of Sticks, and (2) Infocom Games; eo 
Tussey Disks with Lifetime Warranty, and (2) Zork Ill & Suspended. Excallont Rolabllity, 


































Infocom Games; Zork Il & Deadline 


GAME G. LER 


w/Commodore 1802C Color Monitor... $489.00 + $144.95 | 














MISC GAMES. Cheinatter2000 185 Perfect Seow SAT prep $4995 COMMODORE 1285, 
Gharensip Banh ias17.98 sommes $24.95 Star Trok Promethian 8.95 
2. Ucht Mata. SOFTWARE 
Domaine! Hockey . $25: ¥ 
ACCESS Moebius ice. ~ $24: WORD PRC OR 
- $20: Pay Solo Fig) FLEET SYSTEM Illi... $CALL 
Leader Board'Toum. biok $16.95 Music Construction Sat. TAFNER wispell & thesaurus 
ACCOLADE PHM Pogasus. sly fi t FLEET SYSTEM4 $56.95 
1 Footbal $29. Fort Mastor 128 Le 
Ghost Writer 128 . $29.95 
JANE : 





SPREADSE 


EPYX MULTIPLAN |... $99.95 
PERFECT CAL 
‘SWIFTCALG 128 wisdways... $49.95 


Print Shop Companion... $2295 DATA BA‘ 














Graphics Library LiLorill.. $1695. CONSULTANT 2s) $9085 
DATE MANAGER 128........... $CALL 
FLEET FILER... $29.95 


Lode Runner z 2 
DAVIDSON & ASSOC, * og Homepak 95 CAR PERFECT FILER 
‘Now in stock! Call for price on titlos r err SCALL . 
Ms World's Greatest Baseball $24.95 in 
Works Greatest Footbal! $28.95 Picasso's Raterion 
epee MISC. HARDWAR! 
Estes pwr supply tor C-64) $54.05 
Naverone 3 Sot expander $27.95 
UTILITIES 


ONAL $34, 
‘SYLVIA PORTER'S personal 
-apercip wispolipack 295 | finance plannor oo $54 
ANY INFOCOM GAME $6.95 Po - $18.95 Holiday Pack. 95 Copy 164/128 


MICROPROSE, 
Aerojet. 





Ships it Federal Express 


tL 


SQ 


lead 





PRICES ARE FALLING ON ALL 
STAR PRINTERS tl! PLEASE 
CALGFOR LATEST PRICES ON 
THESE MODELS: 
NX+10,NP210,ND-10, ND-15) 
NX+{5) NR10,NB SERIES: 


cr 


U 











AA 
Lx-86 $229.00 
FX-860 5... $959.00 
FX-2860 nuwss SCALL 
SEIKOSHA 
SP-180 Vw... $149.00 
SP-1000 VC ;..$149,00 





SP-1200.Al-:.....$189.95 


120cpsy NUG Mode 











PANASONIC 
2yewarranty 
1080 $177.00 
10941 $229.00 
1092), » $299.00 
SCALL 


9131 Dalsywheo! 


MODEMS 


SHAREDATA 
VOLKS 6480 2001200 baud 
1660 

COMPUSERVE STAKIT 
PLAYNET STARTER KIT 


$3595 
SOALL 
SCALL 
$1905 
31495 





PRINTER PACKAGES 


ALL PRINTERS INTERFACE WITH C-64 or C128 


Ty 
NP-10. & XETEC Supergraphix Jr 
NX-10°& XETEC Supergraphix.. 

NX-10°& XETEC: Supergraphix Jr 


PANASONIC 

1080): & XETEC Supergraphi: 
1080). & XETEC Supergraphix Jr... 
SEIKOSHA 


SP21200 Al & XETEC: Supergraphix 
SP1200 Al & XETEC Supergraphix Ji 





“9209.95 
$253.95, 
~ $237.95 









$244.95 
3229.95: 








$244.95. 
1229.95 














Avice 
‘SUPER GRAPHIX 


Intertace wi6k butter down 
Yoadable fONtS neenenns $59.95 
‘SUPER GRAPHIX 






DISKS 






YY rane per box of 10 
YY pericis BONUS DISKS 
SS/0D $6.45 
writer2....$4295 | |OS/OD..... $6.95 
Pochette 3 sizes | | TUSSEY DISKS 
$42.95 CLOSEOUTS 1!!! 
Digital pak .... $74.95 SS/DD. $4.49. 
Diolonen $1205 DS/OD. $4.99 
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end Maxall Oisks!) 





RGB/COMPOSITE COLOR MONITORS FOR THE 128 
<<< 
‘COMMODORE 1902A 
(€00 x 240 Resolution. 


w.- $269.00 


‘AS montors inckude cables to Commodore 128 


ALL TITLES IN STOCK I! 
Call for price on all books and software titles 


















Software orders over $50.00 will 
be shipped FEDERAL EXPRESS 


(yes even at these prices). You only pay TCP's standard shipping 
charge of $4,00 por order. This offer also valid on peripherals and 
accessories under 8 pounds. Orders arriving before 11:00 AM our 
time will be shipped out samo day. M part of your ordor is 
backordered the remainder will bo shippad UPS Ground for FREE 


Computerized order entry, processing 
and status allowTCPtoserveyoufaster 


and better 


To order by mall: We accept money order, certified check, personal 
check. Allow 2 weeks for personal check to cloar. 
Shipping: $4.00 for software and accessories/ $10.00 for printers and 
color monitors/ $8.00 for disk drives and other monitors/ Add $3.00 
por box shipped COD, Call for other shipping chargos. Additional 
shipping required on APO, FPO, AK, Hi, and foreign orders, 
Terms: ALL PRICES REFLECT CASH DISCOUNT, ADD 1.9% FOR 
MASTERCARD OR VISA. All products include factory warranty. 
ALL SALES ARE FINAL. Defective items replaced or repaired at our 
discretion. Pennsylvania residents add 6% salos tax, Prices and 
torms subject to change without notice 
1 Purchase orders are accepted i We accept Mastercard, Visa, 
from qualified corporations and = COD and mail orders. 
institutions, 


@ No sales tax on orders outside Gea 
of PA. een) 


§ Buy with confidence. We honor 
manufacturers warranty. 





EDUCATIONAL AND CORPORATE ACCOUNTS 
We offer a full line of services catering to you, Including ; 
quick turn-around, personal service, andtho flexibility to 
serve yourorganizationsneeds. Credit Approvalin24 hrs: 
forany organization with a good D&B rating. Toreach our 
Educational and Corporate Sales Department directly, 

Call 1-800-533-1131. Inside PA Call 814-234-2236 


Berkeley 


CMS Softworks 


General Acct System 


includes: * General Ledger 
* Accta Receivable * Billing 
Statements * Acts Payable 
* Check: Writing * Job 
Costing * Payroll: 
Pkg) Price for all Modules: 
(C126 vernon 12495 


CB4 version $119.95, Writers Workshop ...$33,95 





OPEN: 9am-9pm M-Thur, 9am-6pm Fri, 10am-6pm Sat, Noon-6pm Sun EAST COAST TIME 





CALL TOLL FREE 1-800-468-9044 


134-2236 





INSIDE PA CALL 81 


would not be simple variables (only five 
bytes each), but arrays. Floating-point ar- 
rays occupy five bytes per element, while 
integer arrays occupy only two per ele- 
ment. Remember to include the zeroth en- 
try in your calculations. DIM A%(50) 
creates an array of 51 elements when you 
include A%(0). If you're interested in 
looking around in memory, the built-in 
machine language monitor is very useful. 

To BSAVE an array, you'd first have 
to calculate the amount of memory it oc- 
cupies. Then, without using any new (pre- 
viously undefined) variables, ask the 
POINTER function for the address of the 
initial element and BSAVE the array from 
bank 1, To return the array to memory, 
DIM the array first and then find its ad- 
dress. Using that location (which is in 
bank 1), BLOAD the file from disk. 





Carry On, Carry Off 

I have a few questions about 6502 ma- 

chine language. What is the difference 

between the instructions ASL and ROL? 

LSR and ROR? Does the carry bit have 

to be set via SEC to subtract (SBC)? 
William Grinolds 


All three answers involve some aspect of 
the carry bit, The carry flag is a single bit 
in the status register that can be either up 
or down (on or off). When it's set (on), it’s 
equal to 1, When it’s clear (off), it’s a 0. 

The machine language instructions 
ASL and ROL shift all eight bits of a byte 
to the left, as illustrated below. Bit 0 
moves to bit 1, 1 moves to 2, and so on. Bit 
7 falls out of the byte and moves into the 
carry flag. In the example, since bit 7 
holds a 0, the carry will be clear after the 
ASL or ROL, 





Bit ota G a4 


The difference between ASL and ROL 
is that ASL always moves a 0 into bit 0. 
ROL moves the previous value from the 
carry flag into bit 0 (marked as X in the 
ROL example above). The binary number 
01001101 above is the same as decimal 77. 
After the ASL, the number is 10011010 
(decimal 154). After the ROL, it's either 
10011010 or 10011011 (154 or 155), de- 
pending on the status of the carry flag 
before the ROL operation. Note that ASL 
is equivalent to multiplying by 2. To mul- 
tiply a two-byte (or larger) number by 2, 
you'd ASL the low byte and then ROL the 
high byte, because you want to shift bit 7 
of the low byte into bit 0 of the higher 
byte. If you perform nine ROLs, you end 
up with the same value you started with. 
After eight ASLs, you always get a zero 
(binary 00000000). 

The LSR and ROR instructions are 
similar to ASL and ROL, except that they 
move bits to the right. In the case of ROR, 
the carry bit moves into position 7 and bit 
0 moves into the carry flag. With LSR, a 
zero always moves into bit 7. LSR is the 
same as dividing by 2, with the remainder 
of 0 or 1 left in the carry flag. 

When you subtract, the SBC (SuB- 
tract with Carry) instruction can operate 
in two ways. If you're subtracting single- 
byte quantities, you need to set the carry 
(SEC) before using SBC. The calculation 
20 — 5 should give you an answer of 15, 
and it does if the carry is set. But if the 
carry is clear, the answer is 14, because 
there’s a borrow of 1. When you add, you 
can have bits that carry to the next col- 
umn; when you subtract, you can have 
bits that are borrowed from the next col- 
umm. For multiple-byte quantities, use 
SEC before you subtract one low byte from 
the other, After that, the carry takes care 
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of itself, based on whether a borrow is 
necessary. 





Plus/4 And 16 Graphics 
Compatibility With The 128 
Town a Commodore 16 and would like 
to remind you that the 128 has many 
commands that are the same as the 16, 
In your April issue, you printed an arti- 
cle “The Versatile CIRCLE.” I haven’t 
tried the programs yet, but they look 
like they would run on the 16. 

Henry Hanecak 


Good suggestion. We tried the CIRCLE 
Programs on a Commodore 16, and they 
work fine if you make one change. At the 
beginning of each program, the COLOR 
command sets the hi-res colors. You'll 
have to adjust the values after COLOR for 
the Plus/4 or 16. 

As you've noted, most of the 128's 
graphics commands work on the Plus/4 
and 16, so articles about 128 graphics will 
usually apply to these computers as well. 
One problem you might encounter with a 
Commodore 16 (but not with the Plus/4) 
is that the hi-res screen uses 9K of memo- 
ry, which doesn’t leave much space for 
BASIC programs. 





Scratching Comma Files 


When | list the directories of several of 
my disks, | find files whose names are 
“,"" Thave no idea how they got on the 
disk and haven’t been able to scratch 
them. Is there any way to remove them 
short of copying all the valid files to an- 
other disk? 

C. Robert Budd 


Comma files are usually written by a pro- 
gram that gives you the option of saving 
some information to disk. If you press RE- 
TURN at the input prompt without typing 
4 filename, the program adds ,S,W to the 
non-existent filename and then tries to 
open a file called ,S,W. To prevent this 
from happening, you should check the 
length of filenames entered by the user 
before opening a file. The length should be 
at least one character, 

You can't scratch a comma file di- 
rectly because commas can function as 
separators (for deleting more than one file 
at the same time) in the scratch command. 
But you can get rid of it by using the ques- 
tion-mark wildcard. Try this: 

OPEN 15,8,15: PRINT#15,"S0:2": 
CLOSE15 


This line scratches all one-character 
filenames, including the comma file. If 
you have important one-letter files with 
names like A or Z, rename them temporar- 
ily before using the question-mark tech- 
nique. After scratching the one-character 
files, you can then rename the other files 
back to their original one-letter names. @ 
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Commodore’s 64 And 128: 
Marvelous Music Machines 


Selby Bateman, Associate Publisher 


Five years after its introduction, the Commodore 64 can still 
astonish the uninitiated with its music and sound effects. And 
the Commodore 128, thanks to the same remarkable Sound In- 
terface Device (SID) chip, carries on the tradition. At the same 
time, rapid advances in electronic music and digital technology 
are making the 64 and 128 even more versatile, powerful, and 


entertaining music machines. 


Music—and musicians—will never 
be the same again. 

“The computer-music revolu- 
tion is here,” says Larry Ullman, 
software products specialist for 
RolandCorp US, a company that 
develops and markets musical in- 
struments and software for a wide 
range of computers. 

“This is just an absolutely 
amazing opportunity to expose 
people to the creativity of music 
who might never otherwise have 
experienced it,” adds Al Hospers, 
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vice president of Dr. T’s Music Soft- 

ware, another software company 

specializing in computer music. 
“We're opening the ears and 


eyes of musicians out there,” says 
Daniel Kantor, merchandising 
manager for Wenger Corporation’s 
Music Learning Division, a compa- 
ny heavily involved in music edu- 
cation and software. ‘‘With this 
technology, you’re learning that 
you can do whatever you want.” 
Echoing that enthusiasm are 
musicians, music teachers, compos- 








ers, and even nonmusicians, all of 
whom are experiencing firsthand 
one of the most fundamental 
changes in the way music is heard, 
played, and written, 

Commodore 64 and 128 own- 
ers will not find it surprising that 
their computers have been among 
those in the first wave of machines 
to serve as digital creators and con- 
trollers in this age of new music, 
With the versatile three-voice SID 
chip (see “Exploring the SID Chip” 
elsewhere in this issue), the 64 has 
been used as a musical playground 
and serious tool for five years. Now 
the 128, with twice the memory, is 
also drawing its share of ovations. 


MIDI Miracles 

Even more important during the 
same five-year period, however, 
has been the birth and exhilarating 
growth of MIDI—the Musical In- 
strument Digital Interface that is al- 































































































tering virtually every aspect of 
music today. 

“Anything you hear coming 
out of a speaker today has been af- 
fected in some way by digitization 
and MIDI,” says Ullman. “A Com- 
modore 64, for example, through 
MIDI can run up to 16 different 
synthesizers.” 

Even at a time when such new- 
generation computers as the Apple 
Macintosh, Commodore Amiga, and 
Atari ST are further extending the 
boundaries of computer-controlled 
music, the 64 and 128 still serve as 
focal points for a great deal of inter- 
est among musicians and begin- 
ners. And there’s a host of music 
software packages and MIDI inter- 
faces as well. 

Those unfamiliar with MIDI 
may at first have difficulty under- 
standing just how important MIDI 
has become to today’s music. At its 
simplest level, MIDI is a set of tech- 
nical specifications for connecting 
electronic musical instruments, 
such as synthesizers, drum ma- 
chines, digital keyboards, sequenc- 
ers, reverb units, and— 
importantly—computers, These 
specifications mean that what mu- 
sic you create on your synthesizer 
or computer or drum machine can 
be passed to, and understood by, 
another instrument following the 





MIDI standard. The MIDI specs 
were adopted in 1982 by a core 
group of influential instrument 
makers who realized that the future 
of electronic music would be a lot 
brighter if they worked together 
from the beginning to prepare a 
compatible communications 
standard, 

The results of that agreement 
have been far more successful in a 
much shorter time than anyone 
could have forseen thanks to the 
amazing speed of change in digital 
technology and computers. 

What MIDI means to a Com- 
modore 64 or 128 owner is that, 
through a MIDI interface hooked to 
it and by using the appropriate mu- 
sic software, the computer can con- 
trol up to 16 different MIDI- 
equipped instruments at one time. 
A MIDI interface fits into the Com- 
modore’s expansion slot and, at the 
other end, plugs into whatever 
MIDI instrument you want to send 
to and receive from. There are MIDI 
interfaces for the 64 and 128 rang- 
ing in price and optional features 
from about $75 to $200 available 
from RolandCorp US, Dr. T’s Music 
Software, Sonus Corporation, and 
Passport Designs. 

The MIDI connection contains 
a MIDI IN port for receiving digital 
data and a MIDI OUT port for send- 








ing data. MIDI THRU ports are 
used to pass data along a line of 
connected instruments, There are 
16 separate MIDI channels that can 
be used, which gives you an idea of 
the staggering number of variations 
even the novice musician can create 
and control. So widespread has 
MIDI use become that virtually all 
electronic musical instruments are 
MIDI equipped, and the Atari ST 
computer comes with a MIDI inter- 
face already installed. 


A Mountain Of Music 

Over the past several years, soft- 
ware developers have produced 
music programs for virtually every 
aspect of music creation, per- 
formance, and practice. They range 
from professional-level per- 
formance and composition packages 
to introductory and educational 
programs for youngsters and adults. 


There are many sources for this 
information, but one of the most 
complete and attractively packaged 
music software guides is the Coda 
catalog from Wenger Corporation's 
Music Learning Division. The 1987 
guide contains 160 pages of music 
software information, including 40 
pages on Commodore 64 and 128 
programs alone. The book is illus- 
trated and the listings are well 
annotated, 
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A MIDI sequencer program can offer sophisticated music composing, editing, 
sequencing, and other features that let the 64 and 128 work with a variety of 


digital electronic music instruments. 


There are basically three broad 
categories of music software, al- 
though many programs fall into 
two and sometimes all three of 
these divisions. First, there are the 
professional-level MIDI sequenc- 
ers, editors, music libraries, proces- 
sors, and recording studios which 
are transforming the ways profes- 
sional musicians and talented ama- 
teurs approach both composing 
and playing. 

For example, Dr. T's Music 
Software, Passport Designs, and 
Sonus Corporation all offer a vari- 
ety of sophisticated MIDI packages 
for the 64 and 128. Dr, T’s C128 
Keyboard Controlled Sequencer (KCS) 
is an enhanced version of the com- 
pany’s popular KCS for the 64. 
Sonus offers its Super Sequencer in 
64 and 128 versions. And Passport 
has, among other programs, the 
MIDI/4 Plus and MIDI/8 Plus re- 
cording systems for the 64 and 128, 
Other 64 and 128 MIDI products in- 
clude Roland’s MUSE 8-track re- 
cording system and Firebird 
Licensees’ Advanced Music System. 

“MIDI is where things are hap- 
pening in music these days,” says 
Roland’s Ullman. “The MIDI inter- 
face allows musicians to tap the ca- 
pabilities of any MIDI-equipped 
synthesizer, from instruments cost- 
ing a few hundred dollars all the 
way to top-of-the-line digital sam- 
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pling keyboards that cost thou- 
sands of dollars. 

“With a computer, the right 
software, and MIDI, the composer 
can run through his compositions 
before committing them to paper, 
much less hiring musicians and 
concert halls,’”’ he says. “If you 
don’t like the way something works 
out, change it on the computer key- 
board and try it a different way. The 
computer lets the composer reor- 
chestrate at will. In some ways, the 
computer is the greatest musical in- 
vention since the clavier keyboard 
itself.” 


Musical Playgrounds 

A second major division of music 
software available today is what 
might be called creativity and en- 
tertainment programs aimed at 
making the computer a musical 
playground, For the 64 and 128, 
there are literally dozens of exam- 
ples of this type of software, rang- 
ing from simple programs that use 
the SID chip to play back songs all 
the way to professional-level con- 
struction set programs that can be 
used by beginners and experienced 
musicians alike. 

There are a broad range of 
companies that have made 64 and 
128 music programs of this type 
available, including Activision’s 
Music Studio, Broderbund’s The 





For more information, contact: 


Activision 
2350 Bayshore Frontage Rd. 
Mountain View, CA 94043 


Alfred Publishing 
15335 Morrison St., Suite 235 
Sherman Oaks, CA 91413 


Algo-Rhythm Software 
176 Mineola Blvd. 
Mineola, NY 11501 


Broderbund 
17 Paul Dr. 
San Rafael, CA 94903 


Dr. T’s Music Software 
66 Louise Rd. 
Chestnut Hill, MA 02167 


Electronic Arts 
1820 Gateway Dr. 
San Mateo, CA 94404 


Electronic Courseware Systems 
309 Windsor Rd. 
Champaign, IL 61820 


Firebird Licensees 
P.O, Box 49 
Ramsey, NJ 07446 


Mindscape 
3444 Dundee Rd. 
Northbrook, IL 60062 


Passport Designs 
625 Miramontes St., Suite 103 
Half Moon Bay, CA 94019 


RolandCorp US 
7200 Dominion Circle 
Los Angeles, CA 90040 


Sonus 
21430 Strathern St., Suite H 
Canoga Park, CA 91304 


Wenger 
Music Learning Division 

1401 East 79th St. 
Bloomington, MN 55420-1590 








Music Shop, Electronic Arts’ Music 
Construction Set, Mindscape’s Bank 
Street MusicWriter, and many more, 

These music programs let the 
beginner experiment in an onscreen 
environment that’s not as intimi- 
dating as the more advanced MIDI 
programs, but also offer a long list 
of additional features that can be 
used by the more experienced mu- 
sician, and by beginners as their 
abilities grow. There are usually 
preprogrammed musical pieces that 
come with the programs, an easy- 
to-use menu system with recogniz- 
able icons and other symbols, and 
an interactive approach that lets the 
user hear and see in realtime what's 
being composed. 

One of the most innovative 
and interesting of the music creativ- 
ity programs for the 64 continues to 
be Cantus, a program from Algo- 
Rhythm Software that actually 





composes its own three-voice musi- 
cal improvisations after you decide 
the elements of tempo, tone, har- 
mony, and other ingredients you 
want. The program was created 
several years ago by Michael Ries- 
man, keyboardist and conductor for 
the acclaimed Philip Glass Ensem- 
ble (whose recordings include Songs 
from Liquid Days and the sound- 
track from Koyaanisqatsi), and 
there’s still nothing quite like it. 
Although a beginner can have a lot 
of fun with this, experienced musi- 
cians have found it fascinating as 
well, 


Classroom Composers 

One of the most promising and fast- 
est growing areas of music software 
is in education. Thousands of music 
educators have been discovering 
that computers can not only unleash 
the creativity of their students, but 
the right software can make music 
instruction less intimidating to be- 
ginners and can offer very specific 
practice environments on virtually 
every aspect of instruction. 

Just how extensively comput- 
ers and software are used in music 
instruction depends on individual 
music departments and how excit- 
ed the teachers are about the new 
technology, says Daniel Kantor of 
Wenger's Music Learning Division. 

“If the music teacher isn’t using 
the technology, then computers are 
not a part (of the instruction], even if 
the school itself has lots of comput- 
ers,” he says. “Computers are open- 
ing up worlds of composition and 
experimentation to students who 
either don’t have keyboard skills or 
are too young to have them. And 
they’re allowing students at the ear- 
ly stages to think globally when it 
comes to composition.” 

New music packages aimed at 
the schools are emerging almost 
every day, with topics such as mu- 
sic theory, instrument fingering ex- 
ercises, music appreciation, 
composing fundamentals, play- 
along exercises, ear training, music 
terminology, sight reading, instru- 
ment tuning, keyboard fundamen- 
tals, and many others. 

“Almost unconditionally, the 
most popular type of program is 
that which lets you print your mu- 
sic,’’ says Kantor. ‘’A student 
shouldn’t have to know how to no- 
tate music before he or she begins 





experimenting with sound. With 
the technology available, they can 
input examples themselves, or have 
the computer generate random ex- 
amples, and then have the com- 
puter print out those examples.” 
Virtually all of the instructional 
music software developed over the 
past several years is available in 
versions for the Commodore 64 
and 128. For example, Wenger of- 
fers a series of wind instrument fin- 
gering programs for almost every 
instrument: flute, oboe, bassoon, 
clarinet, saxophone, trumpet, 
French horn, trombone, tuba, and 
others. Other music software dis- 
tributors such as Alfred Publishing 
and Electronic Courseware Systems 
also have 64 and 128 products on 
dozens of different subjects. 


A Symphony Of Waves 
Despite the recent proliferation of 
music software, everyone agrees 
that the marriage between comput- 
ers and music has just begun. 

“As artificial intelligence finds 
its way into music, we'll be getting 
programs that know something 
about musical style, and can recog- 
nize it,” says Roland’s Ullman. “So 





that, if you load a jazz composition, 
the machine will display and print 
your music in jazz notation. 

“There’s nothing, really, that 
can’t be done in the way of control- 
lers, either,” he adds. “Once we 
have controllers for all instruments, 
there’s no reason why we can’t in- 
vent controllers for things that have 
never really been part of music 
before—a symphony for ocean 
waves beating against rocks, for 
example.” 

Al Hospers at Dr. T’s concurs: 
“There's going to be software for 
more and more powerful comput- 
ers. Some of the thinking will be 
done for you, as the software learns 
your style, learns your way of 
working and thinking about music, 
and adapts itself to that.’” 

As more powerful computers 
and more sophisticated music soft- 
ware are developed, the boundaries 
of the possible will be extended in 
remarkable ways. But, for the for- 
seeable future, the versatility and 
low cost of the Commodore 64 and 
128 will continue to make them 
among the most popular of digital 
music machines. @ 
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Exploring The SID Chip 


Philip |. Nelson, Assistant Editor 


Ever since 1982, when the Commodore 64 arrived on the scene, 
the SID (Sound Interface Device) chip has been making waves. 
Also found in the Commodore 128, the SID chip allows you to 
create sophisticated, three-part music and sound effects. This 
versatile chip revolutionized microcomputer music when it first 
appeared, and now, some five years after its introduction, it 
still is one of the best sound makers in any personal computer. 
Here's a close-up look at the fascinating world of sound in the 
64 and 128. A demonstration program listing is included. 


This article outlines the capabilities 
of the SID chip and provides a short 
program that shows off some of its 
flashier features. The program 
works on the Commodore 128 and 
the 64. Both of these computers use 
the same SID chip, but the 128’s 
BASIC 7.0 offers several sound- 
related commands that are not 
available in the 64’s BASIC 2.0, The 
BASIC 7.0 commands add some 
other capabilities—and have cer- 
tain limitations—that are not inher- 
ent to the chip itself. If you control 
the chip directly with POKEs, you 
can use the same techniques on 
either machine; we'll look at basic 
features of the SID chip that are 
common to both computers. You 
can find more information in your 
user’s manual and in the many 
books available for programming 
the 128 and 64. 


Three Voices 

The SID chip contains three sepa- 
rate tone generators, usually called 
voices. Each voice can create its own 
sound, completely independent of 
what the other voices are doing. 
Thus, to make a simple beep, for in- 
stance, you might cause voice 1 to 
beep and leave the other two voices 
silent. To emulate a bagpipe, you 
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might play the melody with voice 1 
and use voice 2 to drone in the 
background. Complex sound ef- 
fects or multipart music can use all 
three voices at once. It’s a bit like 
having a three-voice choir under 
your personal direction, Depending 
on what you dictate, the singers can 
sing alone, in harmony, or in any 
other combination. 

Most human voices are limited 
to a single range (tenor, soprano, 
and so on), but a SID voice can 
change its character just by switch- 
ing to a different waveform. In this 
way, the 64 can emulate many dif- 
ferent natural sounds and create 
others which don’t exist in nature, 

The SID chip makes available 
four different waveforms: triangle, 
sawtooth, pulse, and noise. The fig- 
ure illustrates the four SID chip 
waveforms, all of which are com- 
mon in electronic music. 

Each waveform has its own, 
distinctive character. The triangle 
wave creates a soft, flutelike tone. 
The sawtooth wave is louder and 
somewhat buzzy in comparison to 
the triangle. The shape of the noise 
wave is random (or nearly so), cre- 
ating rushing and hissing tones that 
are useful for sound effects. The 
pulse wave creates a clear tone, like 





the triangle and sawtooth; by 
changing the width of its wave, you 
can make the pulse sound rich and 
full, or thin and reedy. A better 
name for the pulse wave might be 
rectangular wave, since its shape is 
always a rectangle of one sort or an- 
other. Another, somewhat less ac- 
curate name for this waveform is 
square wave. A square wave is sim- 
ply a symmetrical pulse wave. 

Each SID voice can use any of 
the four waveforms. For example, 
you might choose a triangle wave 
for voice 1, a sawtooth wave for 
voice 2, and a pulse wave for voice 
3. In other cases, you might set all 
three voices to a triangle, and so 
forth, Except for some special ef- 
fects (see below), the waveform set- 
ting for one voice has no effect on 
what other voices produce. 


Envelopes 

The envelope defines the shape of a 
sound over the course of its life, 
from beginning to end. To illus- 
trate, consider the difference be- 
tween two sounds: the sharp tap of 
a drumstick on a wood block, and a 
soft note on a cello, The wood block 
sound begins sharply and fades al- 
most instantly, while the cello tone 
begins and ends more gradually, 
perhaps taking a second or two to 
fade completely into silence. The 
envelope of each instrument deter- 
mines the character of a sound as 
well as how long it lasts, If the cello 
had the sharp, percussive envelope 
of a wood block, its notes would 
sound very different, indeed. 

For the SID chip, as in conven- 
tional electronic music, a sound en- 
velope is broken into four phases: 
attack, decay, sustain, and release. 


Triangle 


Sawtooth 





Pulse 


a 


i 





Noise 
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The acronym ADSR represents 
these phases and often is used to 
mean an envelope generally. 

The ADSR settings for a given 
sound describe a set of relations be- 
tween volume (loudness) and time. 
The attack setting describes how 
rapidly a sound rises in loudness 
from silence to its peak volume. The 
attack for the wood block, for in- 
stance, would be very rapid, almost 
instantaneous, while the attack fora 
cello would be more gradual. 

The decay setting describes 
how rapidly a sound fades in loud- 
ness from its peak volume to the 
volume at which it will be held, or 





sustained. This setting is most sig- 
nificant, of course, for sounds that 
will be sustained for an appreciable 
length of time. A sound like the 
click of two colliding billiard balls 
fades so quickly that it has, for prac- 
tical purposes, no decay or sustain. 
A sustained trumpet note, on the 
other hand, lasts long enough so 
that decay is important. 

The sustain setting describes 
how loud a sound will be during the 
period in which it is held at a con- 
stant volume. Not all sounds are 
sustained, of course. It’s important 
to note that sustain is a volume set- 
ting, not a duration setting. Sustain 








controls the loudness of a sound 
while it is being held, not the length 
of time it is held. The sustain phase 
of the envelope ends when you un- 
gate the voice, as explained below. 

The release setting describes 
how quickly the sound fades from 
its sustained volume to silence. If 
you strum loudly on a guitar, or 
play a piano chord while pressing 
the piano’s right pedal, those in- 
struments create tones with a long 
release phase. The notes fade grad- 
ually as the strings of the instru- 
ment lose more and more energy. 
The release phase of an automobile 
horn, on the other hand, is very 
brief or nonexistent; the sound 
fades almost instantly when you re- 
lease the horn. 

You can create many simple 
sounds with the SID chip by using 
only attack and decay, ignoring 
sustain and release. For instance, if 
you set attack at 0, decay some- 
where in the range of 8 to 13, sus- 
tain at 0, and release at 0, the sound 
begins immediately and fades natu- 
rally within a short time period— 
ideal for simple music and arcade- 
style sound effects. With an attack 
of 0, the sound begins instantly, 
with no perceivable delay, and the 
decay value determines how fast it 
fades in volume. If sustain is set at 
0, the sound is not sustained at all: 
The sound decays all the way to 
zero volume, silencing the voice 
without further intervention on 
your part. Before making another 
sound with this voice, however, 
you must ungate the voice. 


Gates 

Closely tied to a sound’s envelope 
is the concept of gating, or turning a 
voice on. Gating begins the ADSR 
cycle, which makes a voice produce 
a sound. 

To gate a voice, you set the low 
bit of the voice’s waveform control 
register to 1. To ungate the voice, 
you set the same bit to 0. For in- 
stance, the statement POKE 
54276,17 both selects the triangle 
wave for voice 1 and gates the voice, 
causing it to begin its ADSR cycle. 
The statement POKE 54276, 16 un- 
gates the voice. The other two voices 
are controlled with similar POKEs. 

If you choose a nonzero sus- 
tain setting, the sound will be audi- 
ble after its decay phase is 
complete. Once the voice enters its 
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sustain phase, it remains at the spec- 
ified volume indefinitely until you 
ungate it. At that point, the sound 
enters the release phase, fading into 
silence at the rate specified. 

If you need to specify all four 
ADSR parameters, ungating the 
voice is as important as gating it, al- 
though, as explained above, you 
can sometimes simplify the process 
by leaving sustain and release at 0. 


Volume 

The SID chip’s volume control is 
one of its most basic features, To 
make any sound at all, you must set 
the volume to some nonzero value. 
If this isn’t done, it doesn’t matter 
what else you do with the chip—no 
sounds will be audible. There are 
16 volume settings, ranging from 0 
(silence) to 15 (loudest). 


Filters 

The volume control register, loca- 
tion 54296, also serves as a type se- 
lector for the SID chip filters. By 
setting the appropriate bits in this 
register, you can turn on a band- 
pass, high-pass, or low-pass filter. 
The SID filters are subtractive, 
meaning that they suppress, or at- 
tenuate, a portion of the frequency 
range for a particular sound. 

You can route any of the three 
SID voices through the filter. For 
instance, you might filter voices 2 
and 3, leaving voice 1 unfiltered. 
However, all filtered voices are af- 
fected in the same way; you can’t 
select a band-pass filter for voice 1, 
for example, and a low-pass filter 
for voice 2, 

A low-pass filter suppresses 
high-frequency tones in a sound, 
“passing through” low-frequency 
tones. A high-pass filter works in 
the opposite way, passing through 
high frequencies and suppressing 
low ones. A band-pass filter passes 
through only those tones within a 
narrow, specified frequency range, 
suppressing tones above and below 
it. You can use more than one kind 
of filter at a time. If you combine 
high-pass and low-pass filters, for 
instance, you get a band reject filter, 
which suppresses tones only within 
a specified range. 

When you're using a filter, it’s 
necessary to set the cutoff frequen- 
cy, controlling the point in the fre- 
quency range at which the filter 
takes effect. For instance, if you se- 
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lect a low-pass filter and set the cut- 
off frequency at the middle of the 
64’s frequency range, then tones 
below the middle of the range pass 
through unaltered, while those 
above the cutoff spot are sup- 
pressed. You can also specify the 
resonance, or peaking effect, of the 
filter, A high-resonance setting 
makes the filter more powerful, 
while low resonance tones it down. 

Filtering may sound complex, 
but it’s the key to emulating the 
complexity of natural sounds, Un- 
fortunately, because faulty formu- 
las were used in designing the SID 
chip filter, you cannot assume that 
filtering will sound the same on ev- 
ery Commodore 64 or 128, Filtering, 
always has some effect, but it will 
be more pronounced on some ma- 
chines than on others. 


Synchronization And 


Ring Modulation 

The SID chip includes several spe- 
cial features that would be difficult 
or impossible to achieve if they 
were not supported in hardware. 
These include ring modulation, 
synchronization, envelope follow- 
ing, and number generation. 

Ring modulation and synchro- 
nization work in similar ways; both 
effects use the frequency setting of 
one voice to modulate, or change, 
the output of a second voice. The 
modulation relationships between 
voices are fixed. Voice 1 can modu- 
late voice 2’s output, voice 2 can 
modulate voice 3, and voice 3 can 
modulate voice 1, 

Synchronization is the simpler 
of these two effects. It mixes the fre- 
quencies of two voices together, cre- 
ating harmonic overtones which are 
not present if the two voices are not 
synchronized. (The name for this ef- 
fect is somewhat misleading. The 
word synchronization means a mov- 
ing together, or in step. This does 
not mean, however, that the sounds 
for the two synchronized voices be- 
gin and end together. It is the fre- 
quencies of the two voices which are 
combined, not their envelopes.) 

Ring modulation sums (com- 
bines) the two voices’ frequencies, 
but suppresses the basic tones and 
accentuates the harmonic over- 
tones which result from the sum- 
ming. This feature creates strange, 
hollow sounds that can resemble 
the ringing of bells. 





Number Factory 

Envelope following and number 
generation both use voice 3 in a 
special way—as a ‘‘number fac- 
tory” for special effects rather than 
as a sound maker in its own right. 

Location 54299 can generate 
different series of numbers in the 
range 0-255. The type of number 
series is controlled by the wave- 
form chosen for voice 3, and the 
rate of change depends on voice 3's 
frequency. When voice 3 is set to a 
noise wave, this register generates 
random numbers which are very 
useful in game programming. The 
other waveforms generate repeti 
tive output in the range 0-255 that 
is useful for vibrato, tremolo, and 
other cyclical effects. For example, 
when the triangle wave is selected, 
the output sweeps up and down be- 
tween 0 and 255, at a rate deter- 
mined by voice 3’s frequency. 

Location 54300 also generates 
numbers in the range 0-255, but its 
output mirrors the changing form 
of voice 3’s ADSR envelope. By 
reading this location while voice 3’s 
ADSR cycle is in progress, you can 
use the envelope output to modu- 
late the output of another voice. 
The term envelope following refers 
to the fact that you follow, or track, 
the envelope of one voice, using it 
to change another voice. Because 
these values change very rapidly, 
envelope following is practical only 
from machine language. 

The example technique uses 
envelope following to make the fil- 
ter’s cutoff frequency, as well as 
voice 3’s frequency, follow the en- 
velope of voice 3, Of course, you 
can use the envelope output for any 
purpose you like. 


Example Program 

The sample program for the Com- 
modore 64 creates a highly complex 
sound effect with the aid of a short 
machine language routine which it 
POKES into memory. Since its pur- 
pose is to show off the SID chip, the 
sound takes advantage of several 
special SID features, including ring 
modulation, filtering, and envelope 
following. Not every sound needs 
to be this complex, of course. But in 
sound, as in other areas, you'll find 
that the time spent learning pro- 
gramming details is usually well 
rewarded, 

See program listings on page 84. @ 








Mark Tuttle 


Challenge a friend or the computer to a battle of wits in this _ 
puzzle game for the 64. It’s easy to play, but not so easy to win. 


“Give ‘N’ Take” is a strategy game 
played on a jigsaw-puzzle board. 
The board is empty at first, but it 
quickly fills in as you and your op- 
ponent place your pieces. The game 
sounds simple—and it is—but 
there’s a twist. When you put a 
piece down, all adjacent pieces turn 
to your color, This is beneficial to 
you in the variation called Take, but 
very hazardous indeed in Give. 

You can play Give ‘N’ Take 
against either the computer or an- 
other player. In Give, try to end the 
game with fewer points than your 
opponent. In Take, try to finish 
with more, 


Typing It In 

Give ‘N’ Take is written in BASIC. 
Since it requires accurate entry, 
type it in with the aid of the “Auto- 
matic Proofreader” located else- 
where in this issue. When you've 
finished entering the program, save 
it to disk or tape. 

Before you can load and run 
Give ‘N’ Take, you must modify the 
computer’s memory configuration. 
From immediate mode, enter this 
line: 

POKE 43,1:POKE 44,64:POKE 16384,0 


Then load and run the program. 
If you own a disk drive, you 
may want to type in Program 2 and 





save it to disk, This program will 
perform the above POKEs for you 
and then automatically load and 
run Give ‘N’ Take. For the boot pro- 
gram to work, both programs must 
be on the same disk, and Program 1 
must be saved with the name GIVE 
'N’ TAK 








Two players place their pieces on the 
board in “Give 'N’ Take," a unique 
Strategy game. 


Game Play 
The first step in Give ‘N’ Take is to 
choose which variation to play: Give 
or Take. In Give, you try to force 
your opponent to capture pieces. In 
Take, you try to capture pieces. 
Next, choose your opponent. 
You may play against a friend or 
against the computer. If you play 
against a friend, choose whether 
you want to use one joystick or two. 
If you use one joystick, plug it into 
port 2. 








If you play against the com- 
puter, you must choose who should 
go first. Plug your joystick into port 
2. 


Give ‘N’ Take contains 70 
puzzle-like pieces. These pieces are 
randomly divided at the beginning 
of the game—35 per contestant. 
Each of 18 unique shapes are dis- 
played on both sides of the board— 
player 1 (green) on the left; player 2 
(blue) on the right. Under each 
piece is a number which shows 
how many of that particular piece 
the player has. 

Players alternate placing their 
pieces on the board. Unoccupied 
slots are gray. Move the game cur- 
sor (a white dot) to any region by 
moving the joystick left or right. 
When the cursor is on the slot 
where you want to move, press the 
fire button to place your piece. All 
occupied regions that share a bor- 
der with the freshly taken space 
will change to your color, A run- 
ning score is displayed at the top of 
the screen (each piece of your color 
is worth one point). 

An attempt at an illegal move 
(such as trying to put a piece down 
on an occupied region, or trying to 
play a piece that you don’t have) 
will sound a buzzer. 

When all pieces have been 
played, the computer announces 
the winner. Press the fire button to 
play again. 

See program listings on page 81. @ 
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A disk drive is required. 


In the near future, two platoons of 
disrupter-equipped men battle for 
control of the last remaining natural 
forest, Since the game begins with 
neither side at an advantage, the 
player with the best strategy and 
the surest reflexes will win “Front 
Line.” 


Typing It In 

Front Line is written in both BASIC 
and machine language. Program 1 
adjusts the memory configuration 
of the 64 and loads the main BASIC 
program and the machine language 
program. Type it in and save it to 
disk. Since it tries to load Program 2 
from disk, do not attempt to run it 
at this point. 

Program 2 is the main BASIC 
program. Type it in and save it on 
the same disk that you saved Pro- 
gram 1. You must save Program 2 
with the name FRONT LINE.BAS 
because that’s the name Program 1 
looks for. Since the bottom-of- 
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Georg and Paul Zimmer 


This addictive two-player combat game for the Commodore 64 
combines high-speed graphics action with board-game strategy. 


BASIC pointer must be adjusted 
before this program is loaded, Pro- 
gram 2 should be loaded and run 
only by Program 1, 

Program 3 is the machine lan- 
guage portion of Front Line. Enter it 
using the ‘“MLX’’ machine lan- 
guage entry. program found else- 
where in this issue. When you run 
MLX, you'll be asked for the start- 
ing and ending addresses for the 
data you'll be entering. In this case, 
use the following values: 

Starting address: C000 
Ending address: C3BF 

Be sure to save a copy of the 
program with the name FRONT 
LINE.ML before leaving MLX. (You 
must use the name FRONT LINE 
-ML because that’s the name Pro- 
gram 2 looks for on the disk.) 


Beginning The Battle 

To begin play, plug in two joysticks 
and then load and run Program 1. 
After the title screen is displayed, 








Two armies battle for a forest in the 
futuristic “Front Line.” 





In the game's action scenario, two men 
battle to the death for a strategically 
placed hilltop. Since each soldier has his 
own unique capabilities, every battle is 
different. 





HOT SELLERS 




























Design pictures and graphics quickly and 
precisely. Unlike other drawing programs, 
you can produce exact scaled output on 
your printer. Design in the units of your 
drawing problem (feet, miles, meters, etc.) 
and send hardcopy to most printers. Uses 
either the keyboard, lightpen or 1351 mouse. 
Two separate work screens—transfer 
artwork from one screen to the other. Place 
text in four sizes anywhere in the 
picture—three extra fonts included: Old 
English, 3-D and Tech, “Try Again” allows 
you to undo mistakes, Draw solid or dashed 
lines, circles, ellipses at any angle, rays and 
boxes. Design fill. patterns, fonts and 
objects. Cadpak is the full-featured design 
and graphics package for your computer. 
for C-64 $39.95 for C-128 $59.95 


Super Pascal 
Your complete system for developing 
applications in Pascal. Acomplete implemen- 
tation of standard Pascal (Jensen and 
Wirth). C-64 version has a high-speed DOS 
(3X) for quick and efficient use. The 
extensive editor (source included) contains 
added features: append, search and 
replace. Includes assembler for any of your 


Pascal 


machine code requirements. Used in 
hundreds of schools to teach programming 
and also used for serious development 
projects. But it can be used for more than 
just learning Pascal, use it for serious 
programming. With complete graphic library 
(source included) in machine language for 
super-fast execution. Want to learn Pascal 
or develop software using the best tool? 
Super Pascalis your first choice. 

for C-64 $59.95 for C-128 $59.95 


BASIC Compiler 

Now anyone can speed up their BASIC 
programs by 3 to 35 times! Basic-64 and 
Basic-128 easily convert your programs into 
fast machine language or speedcode (takes 
up less space yet protects your programs 
from prying eyes) or a mixture of both. You 
can even compile programs written with 
extentions—Simon's Basic, VICTREE, 
BASIC 4.0, VideoBasic and others. When 
the compiler finds an error, it just doesn't 
stop, but continues to find any other errors 
as well. Supports overlays and has many 
other options. 128 version works in FAST 
mode and allows you to use all 128K of 
memory. If your program walks or crawls, 
give it the speed to RUN! 


for C-64 $39.95 for C-128 $59.95 
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GEOS Inside and Out 
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you'll see the game's strategy 
board. This is an overhead map of 
the forest. The game begins with 
the Red Fighters lined up on the 
west side (left side of the screen) 
and the Blue Fighters lined up on 
the east. 

Among the trees are three 
Control Mounds. These are strate- 
gic vantage points, hills from which 
the entire forest can be seen. If a 
player takes all three of these 
mounds, the game ends with that 
player declared the victor. 

The Red Fighters make the first 
move, During this turn, you can 
move only one fighter. Use the joy- 
stick to position the cursor over the 
fighter you wish to move. Press the 
fire button to select the fighter. The 
cursor disappears, and you can now 
move the fighter freely within his 
range. Press the fire button again 
once you have chosen his destina- 
tion. 

When a fighter is selected, cru- 
cial information is displayed on a 
status line at the top of the screen, 
including his range, speed, type of 
weapon, and strength. It’s impor- 
tant to consider the differences be- 
tween the various fighters when 
choosing an opponent with which 
to do battle. After a while, you'll 
learn to identify the types of fight- 
ers by their body shapes. 


The Mechanics Of Movement 
The rules of movement are easy to 
learn: Once a fighter has been se- 
lected to move, he must be moved. 
A fighter cannot be placed ona tree 
or onto another fighter from the 
same team. In order to occupy a 
Control Mound, the fighter must be 
placed directly above the top of the 
hill. 

When a player places his fight- 
er directly on top of an opponent's 
fighter, hand-to-hand combat takes 
place. The two fighters enter an ob- 
stacle-filled arena (a new screen ap- 
pears) and fight to the death. This 
part of the game calls for quick re- 
flexes. Still, there is strategy needed 
even in this facet of the game. Dif- 
ferent abilities and different weap- 
ons call for different tactics. 

The game ends when all the 
fighters from one team have been 
destroyed or when one player takes 
all three Control Mounds. 

See program listings on page 88. @ 
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User Group 
Update 


This list includes updated entries to our annual “Guide to Commodore 

User Groups,” which last appeared in the May and June 1987 issues. 
When writing to a user group for information, please remember to en- 

close a self-addressed envelope with postage that is appropriate for the 


country to which you’re writing. 


Send typed additions, corrections, and deletions for this list to: 


COMPUTE! Publications 

P.O. Box 5406 

Greensboro, NC 27403 

Attn: Commodore User Groups 


New Listings 


CALIFORNIA 


Club-64 (San Bernardino), P.O, Box 514, Patton, 
CA 92369 

Lake County Computer Users, Commodore SIG, 
P.O, Box 385, Clearlake, CA 95422 


ILLINOIS 


Computers West, P.O, Box 3357, Glen Ellyn, IL, 
60138 


Gateway Computer Club, P.O, Box 1839, Fair- 
view Heights, IL 62208 


LOUISIANA 


Commodore Users Group of Slidell (CUGS), 111 
Marche Blvd, Slidell, LA 70458 


Gaithersburg C-64 Users Group, P.O, Box 2033, 
Gaithersburg, MD 20879 


MICHIGAN 


Fellowship of Commodore Users and Supporters 
(FOCUS), 3897 Snow Rd,, Berrien Springs, MI 
49103 





Box 21, New Haven, MO 63068 


NORTH CAROLINA 


Western Carolina Commodore Beginner User's 
Group (WCCBUG), Rt. 2, Box 826, Forest City, 
NC 28043 


OKLAHOMA 


Univisions Users Group, 124 W, Frank St., 
Norman, OK 73069 


PENNSYLVANIA 
Sub-64 Users Group, P.O, Box 54208, Philadel- 
phia, PA 19105, 


TENNESSEE 
Memphis-East Commodore Organization 
(MECO), 6870 Sauterne Cove, Memphis, TN 


38115 





TEXAS 

International Association of Commodore User 
Groups (IACUG), P.O. Box 890407, Houston, 
TX 77289-0407 


VIRGINIA 


Southside Virginia Commodore Users Group, 
315 Lakeview Ave., Colonial Heights, VA 23834 


Outside the U.S. 


BRAZIL 

Associacao de Usuarios de Micro-computadores 
Pessoais, Pedro Paulo Rocha, estr, da Canoa 
401, 22600 Rio de Janeiro, Brazil 


CANADA 


AJ's User Group, 20 Davenport Cres,, Ont., Canada 
L6T 3L6 

Commodore Concepts Users Group (CCUG), Box 
783, Steinbach, Manitoba, ROA 2A0 


MEXICO 


Commodore Users Club, Calle Plata 3307, Puebla, 
Pue,, Mexico 72090 @ 
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Bounty Hunter 


Dan Aven 


> SS 


Here’s an educational game for the 64 that's so enjoyable you 
may not even notice that you're learning US geography. 


A crook is loose, and you're deter- 
mined to collect the bounty, It won't 
be an easy job—you'll have to know 
your way around the country to find 
him. And when you finally track 
him down, you'll have to bring him 
back home to collect the reward. Ru- 
mor has it that his big brother is 
loose, and he probably won't be 
happy to hear that you've appre- 
hended his baby brother. 

“Bounty Hunter’ is a game 
that requires knowledge of US ge- 
ography. Don’t worry if you're a lit- 
tle rusty, though—pressing the 
space bar will give you a clue. 
Eventually, when you've learned 
your way around, you won't need 
the clues as often. 

Bounty Hunter has so many 
variations that you may never tire 
of the game. 


Typing It In 
Bounty Hunter is written in BASIC. 
It requires accurate typing, so be 








The Bounty Hunter has just crossed 
over into the western half of the US to 
catch the crook (in Idaho) and bring him 
home. 


sure to use the “Automatic Proof- 
reader” program found elsewhere 
in this issue. Pay special attention 
to lines 380-620 and 710-950, 
which draw the maps used in the 
game. Refer to the “How to Type In 
COMPUTE!’s Gazette Programs” 
article elséewhere in this issue if you 
have trouble understanding the 
representations of any of the graph- 
ics characters. When you've fin- 








ished typing, be sure to save the 
program to tape or disk. 

When you're ready to play, 
load the program and type RUN. 
You'll be asked to choose between 
Bounty Hunter and Countdown. In 
Bounty Hunter, you chase a crook 
across the country, In Countdown, 
you try to visit as many states as 
possible in the time selected (1-5 
minutes.) It’s a good way to warm 
up for Bounty Hunter. 

After selecting a game to play, 
you'll be asked to choose between 
several variations. First, choose be- 
tween States and Capitals, If you se- 
lect States, you'll move by typing in 
the name of a state which has a 
common border with the state you 
are in. If you choose Capitals, you'll 
travel by typing in the names of 
capitals instead of the states they 
are in. 

Next, choose between visible 
and invisible. Choose invisible only 
if you’re an expert—you won’t be 
able to see the map. 

Finally, choose a skill level. 
Level 1 is the easiest and 3 is the 
most difficult. 
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Now Get Inside Your Commodore with 
COMPUTE!’ Gazette Disk. 


Now there's a way to get all the exciting, fun-filled programs of 
COMPUTE!’s Gazette—already on disk—with COMPUTE!’s 
Gazette Disk. 


Subscribe today, and month after month you'll get a new, fully- 
tested 5%4-inch floppy disk guaranteed to run on your Commodore 
64 or Commodore 128 personal computer. 


COMPUTE!’s Gazette Disk brings you all the latest, most 
challenging, most fascinating programs published in the 
corresponding issue of COMPUTE!’s Gazette. So instead of 
spending hours typing in each program, now all you do is insert 
the disk...and your programs load in seconds, 


RESULT: You have hours more time to enjoy all those great pro- 
grams which appear in COMPUTE!’s Gazette—programs like 
Disk Editor, Face-Off, Turbo Copy, Arcade Baseball, Sound 
Designer, SpeedScript, and hundreds of others. 


Sea ee So don't waste another moment. Subscribe today to COMPUTE!’s 
Gazette Disk at this money-saving price. Take a full year's 
subscription for just $69.95. You save 55 percent off the single 
issue price. Subscribe for two years and save even more! Return 
the enclosed card, 


Call toll-free 1-800-247-5470 now. 


Individual issues of the Disk are available for $12.95 (plus $2.00 shipping 
and handling) by calling 1-800-346-6767 (in NY 1-212-887-8525). 














The Hunt 
If you choose the Bounty Hunter 
game, you'll be told the name of the 
state where the crook may be 
found. He probably won't be there 
for long, though, since he knows 
you're after him. The state in which 
you begin the game is the state that 
wants to bring the crook to justice. 
Be sure to remember this home 
state. You'll need to bring the crook 
back here when you catch him. 

Don’t rest a moment when 
you've caught the crook; his broth- 
er will be hot on your heels. Get the 
crook back home to claim your 
reward, 

The map of the United States is 
divided into two halves: the East 
and the West. Five eentral states are 





on both maps (Minnesota, lowa, 
Missouri, Arkansas, and Louisiana.) 
If you are in one of these states, 
pressing the cursor-right key will 
display the other map. If you are in 
any other state, this key will have 
no effect. 

If you misspell the name of a 
state or capital, you'll see the mes- 
sage TRY AGAIN. If you enter the 
name of a state or capital which 
does not share a border with the 
state you are currently in, you'll get 
the message NOT A NEIGHBOR. 


Desperate Measures 

If you're really stuck, press the 
space bar. You'll see the name of 
one of the neighbors of the state 
you are in. If that state or capital 





would take you in the wrong direc- 
tion, press the space bar again for 
another choice. Keep pressing until 
you've found the state or capital 
that you want. Type the name in 
when you've found it. 

If you catch the crook, but for- 
get where you're supposed to take 
him, press the RETURN key. You'll 
see the name of the state or its 
capital. 

A $10,000 reward is offered for 
bringing the crook to justice, but this 
amount is reduced by $100 each 
time the crook moves from one state 
to another. The crook moves very 
rapidly at the higher difficulty lev- 
els, so it’s possible that the bounty 
amount will become negative. 

See program listing on page 78. @ 











Get on line FAS T with TRIAD COMPUTERS 


Most computers and disk drives are repaired and shipped within 72 hours! 


Down Time Got 


You Down? 










C-64 Computer 

C-128 Computer 

1541 Drive Logic repair 
1571 Drive Logic repair 
1541 or 1571 Permanent Fix 


(Alignment and modification to stay in alignment!) 


1702, 1802, 1902 Monitor 

1541 or 1571 alignment (only) 
MPSZ-801, 802, 1525, 1526 Printers 
Star and Okidata Printers 


For fast, expert service. . 


1-800-624-6794 


(For your convenience, have your equipment serial number and credit number ready. 
Checks and money orders also accepted). Add $7.50 for shipping — includes two-day 
air service anywhere in the Continental USA. For APO-FPO and P.O. Box addresses, 


add $15.00 for shipping (excluding air freight). 


3402-E W. Wendover Ave., 
Greensboro, NC 27407 
1-800-624-6794 or (919) 299-0391 





















1-Year Repair with 

Repair Warranty Contract —_1-Year Warranty Save 

$59.00 $69.00 $89.00 $39,00 
89.00 99.00 119,00 69.00 
69.00 79.00 99.00 49.00 
79.00 89.00 109.00 59.00 
69.00 79.00 99.00 49.00 
79.00 89.00 109.00 59.00 

dust 29.95 
69.00 89.00 99.00 59,00 
Call for price 
. Just call our toll free number today! 
Permanent Fix 





‘A $69.00 value — includes align: 
ment and modification to stay in 
alignment. FREE with any 1541 or 
1571 one year warranty repair. 
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Fred D'Ignazio 
Associate Editor 


COMPUTE! and COMPUTE!’s Gazette 
are proud to be the leading maga- 
zines in “home, educational, and 
recreational computing.” I used to 
think that recreational computing 
belonged in the home and the class- 
room. Now I've learned that it also 
has a place in the hospital. 

In Wabash Valley Hospital in 
West Lafayette, Indiana, Don Wood 
and his colleagues are pioneers in 
the new field of recreational thera- 
py, and they use Commodore com- 
puters—a 64 and a 128—in their 
work. Their clients are kids ranging 
in age from 7 to 16. The kids are 
mentally ill, learning disabled, or 
have a variety of problems. Many 
of the children Don works with are 
in the hospital because they are 
substance abusers. 

Three years ago Don and his 
associates at Wabash got a grant 
from the Ray Foundation in Colora- 
do to purchase a Commodore 64, 
some Commodore peripherals, and 
software, Since then, the founda- 
tion has also enabled the hospital to 
purchase a Commodore 128 and 
additional software. 


The Computer As A Tool 
Don says, “Our goal with our ‘spe- 
cial population’ is not to teach com- 
puter programming, but to teach 
our children how to get along with 
others, using the computer as a 
tool. For us, the process is more im- 
portant than the tool used. If they 
learn some programming at the 
same time they're learning some 
basic social skills, that’s fine.” 
Although Don’s staff has pur- 
chased popular commercial pro- 
grams such as Print Shop and 
Ghostbusters, most of the programs 
the children use are from COM- 
PUTE!’s Gazette and other computer 
magazines, 
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Among the most popular Ga- 
zette programs at Wabash are 
SpeedScript, ‘‘Typing Derby,” 
“Aardvark Attack,” “The Viper,” 
“Arcade Baseball,” and “Sea Route 
to India.” 

Don’s students do very little 
programming on their own. “I’m 
not wasting my time or my students’ 
time learning to write programs,” 
says Don. “I'd rather spend the time 
figuring out how to adapt what's 
available for the social and emotion- 
al improvement of my clients.” 


Also, Don says, “It’s amazing 
what you can do with only a single 
computer. I know it’s popular these 
days to go out and purchase an ex- 
pensive computer laboratory with 
lots of computers, but it’s really not 
necessary. All you need is imagina- 
tion. Imagination is a wonderful 
tool in combination with basic com- 
puter programs, and we try to use 
both to their fullest extent.” 

For example, Don’s students 
pulled ‘‘Clues,”’ a question-and- 
answer program, from the August 
1983 issue of COMPUTE! and 
turned it into the “Substance Abuse 
Quiz” which they gave to each oth- 
er and to incoming Wabash pa- 
tients. According to Don, the quiz is 
a simple set of questions on alcohol 
and drug abuse, with two tries at 
the answers—which clients learn 
through Addiction Services educa- 
tion sessions during a three-week 
inpatient period. Don assisted three 
clients who collected the data, then 
typed it into the program. He and 
his students are currently revising 
the program to develop pretests 
and posttests for the Addiction Ser- 
vices program, and to gauge incom- 
ing patients’ knowledge, reading 
and learning ability, and motiva- 
tion. The program has been a big 
hit with Don’s students. 

Don found another program 
from an old magazine and extended 
it from pure recreation into recre- 














Recreational Computing In 
Wabash Valley Hospital 


ational therapy. The program is a 
word search game which hides tar- 
geted words horizontally, vertical- 
ly, and diagonally in a two- 
dimensional matrix. When new 
students arrive at the Substance 
Abuse unit at Wabash, Don has 
them type their names into the pro- 
gram, and then try to find each oth- 
er’s names in the find-a-word 
matrix. The program makes an ide- 
al ice breaker at the unit's first so- 
cial event. 

Don has been even more suc- 
cessful in adapting the program 
into both an interview and social 
interaction therapy. He and his stu- 
dents develop a list of words cen- 
tered around a specific topic—for 
example, family, the hospital, their 
feelings, what's fun, the theme of 
the day, or positive words about an- 
other student, and so on. According 
to Don, these lists often reveal atti- 
tudes and values more than a client 
would normally share. He says 
they also provide an impetus to his 
students’ “creativity and the neces- 
sity to look beyond the surface, as 
well as using certain social skills, 
such as tact.” 

As with all of Don’s other com- 
puter activities, the specific goal of 
each program is less important than 
the social and emotional improve- 
ment of his students. He says, 
“Group interaction, learning to get 
along with others, and encouraging 
use of a computer as a hobby are our 
primary goals with this program.” 

If you're interested in learning 
more about using Commodore 
computers with programs for recre- 
ational therapy, write Don Wood, 
Acting Assistant Director, Activity 
Therapy Department, Wabash Val- 
ley Hospital, 2900 N. River Rd., 
West Lafayette, IN 47906. @ 
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simple answers 
t© COMMON questions 


Each month, COMPUTE!'s Gazette 
tackles some questions commonly 
asked by Commodore users. If you 
have a question you'd like to see 
answered here, send it to this col- 
umn, c/o COMPUTE!s Gazette, P.O. 
Box 5406, Greensboro, NC 27403. 


e In the April 1987 issue, you 
answered the question Can a 
Commodore 128 emulate an MS- 
DOS computer?” I would like to 
have the answer to this question 
in reverse: Can an MS-DOS (IBM 
PC-compatible) computer emulate 
a Commodore 64? I have recently 
acquired a 640K PC clone and 
would like to have a program that 
would allow me to use my four 
years of Commodore work on my 
new computer, 


A. The general emulation princi- 
ple stated in the April 1987 column 
applies here as well: Any computer 
can emulate any other computer as 
long as speed is not a consideration. 
You might consider this as the ‘First 
Law of Emulation.” 

The Second Law of Emulation 
might be: Any computer can emulate 
any other computer as long as expense 
is not a consideration. 

Which brings us to the Third 
Law: In general, therefore, forget 
about emulators. 

Although an MS-DOS com- 
puter is more powerful than a Com- 
modore 64, it is not powerful 
enough for this job. For one com- 
puter to successfully emulate anoth- 
er in software, it probably must be 
several orders of magnitude more 
powerful than the computer it’s 
attempting to emulate. Most MS- 
DOS computers use the 8/16-bit 
8088 or 8086 chips, and they simply 
aren’t powerful enough to emulate 
the 8-bit Commodore 64 with any- 
thing close to full compatibility and 
full speed. 

If anyone attempted to write a 
64 emulator for the PC, they’d run 
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into serious problems right off the 
bat. For one thing, the beeper found 
in most PCs can’t come close to imi- 
tating the sounds that are possible 
with the 64’s SID chip, which is 
practically a minisynthesizer. 

Graphics are another problem. 
MS-DOS computers have no hard- 
ware to generate sprites like those 
built into the 64. Sprites can be sim- 
ulated in software, but even in ma- 
chine language you'd have trouble 
matching the speed and flicker-free 
animation that 64 programmers take 
for granted. Most MS-DOS comput- 
ers also can’t display a screen with 
16 simultaneous colors, as the 64 
can. 

The result? A 64 emulator that 
would have difficulty with pro- 
grams that use graphics or sound— 
which eliminates about 90 percent 
of all Commodore 64 software. 

Someone could design a plug- 
in board for MS-DOS computers 
that incorporates a SID chip, a VIC- 
Il graphics chip, and a 6510 micro- 
processor. But they’d run into 
another problem—emulating the 
64's operating system. The operat- 
ing system (Kernal) is copyrighted, 
so you can’t just copy it. Someone 
would have to undertake the same 
project that made PC clones possi- 
ble—a complete rewrite of the oper- 
ating system that performs the same 
functions without using the same 
code, This could easily require a 
year of programming and 
debugging. 

The result would be the func- 
tional equivalent of a Commodore 
64 on a plug-in board. Ideally, it 
would be designed to use the PC’s 
keyboard and memory to save the 
expense of duplicating those com- 
ponents. But those aren't particular- 
ly expensive components, so the 
emulator board might cost nearly as 
much as a regular 64—especially 
since development costs would 
have to be recouped. Is there a large 
enough market of PC owners who 





Tom R. Halfhill, Staff Editor 


want to run Commodore 64 soft- 
ware to make this investment profit- 
able? It’s doubtful. 

Again, these principles apply to 
emulator schemes in general. Soft- 
ware emulation requires a vast in- 
crease in processing power, and 
most people with that much power 
probably won’t want to run the old 
programs on the new machine, any- 
way. Hardware emulation is expen- 
sive to develop, and purists might 
not consider it emulation at all, since 
you're really just bolting one com- 
puter onto another. You could emu- 
late a Cray-XMP supercomputer on 
a VIC-20 with the addition of 
enough hardware. 

Perhaps the best advice for 
someone who buys a new computer 
but doesn’t want to part with an ex- 
isting software library is to hold 
onto the old computer, and try to 
find room for both of them on the 
same desktop. 


Q. I have a Commodore 1541 
disk drive which won't save any 
programs or data. It keeps giving 
me a Write-Protection Error. It 
loads programs fine. I have tried 
saving on several disks, but none 
of them works. 


A. Two possibilities: Either the 
disks you're using are write-protect- 
ed, or the write-protection sensor in 
your drive is faulty. 

A 5%-inch floppy disk should 
have a small notch cut into the right 
edge (as viewed when facing the la- 
bel). If this write-enable notch is 
missing or covered with a piece of 
tape, the drive won't let you change 
anything on the disk. You can load 
files, but you can’t save, delete, or 
even rename files. 

If the notch is there, perhaps 
the sensor inside the drive that 
checks for the notch is malfunction- 
ing. Have the drive examined by a 
qualified technician. @ 





* With purchase of our special ‘39.95 software 
All prices expire 8-31-87 


€64c Computer | 1541c Disk Drive 


Included with each computer is the GEOS Program: * With purchase of the game Trivia Fever, 
word processor and a versatile drawing program. computerized trivia, at our sale price of $29.95 


* AutoCom Software Included ¢ File 7 ; 


Transfer © Tone/Pulse/Keyboard Dialing “ 
* Download Text/Data Files ¢ Plus More List $329 


Shipping, Handling & Insurance CI To 2 2. oY. 4 
‘Add $10.00 for shipping, handling, and insurance. Illinois please odd 

64% sales tax, Add $20.00 for ALASKA, CANADA, PUERTO RICO & 

APO-FPO orders. All orders must be in U.S, Dollars, WE DO NOT EXPORT TO. Gs) Ord er BOt/OMDOU SEE AAO 
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orders; 1 day express mail. P 4.8 Availability subject to change without notice. | Call 
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COMPUTER DIRECT (A Division of PROTECTO) 


80 Column Printer ¢ 8/2" Letter Size 


15 Day Free Trial-Satisfaction or Your Money Back * 90 Day Immediate Replacement Policy 


Have Been Waiting For! 


© Dot Matrix ¢ Heat Transfer $ ® 9 5 


Big Blue Printer = The Affordable Printer You Ses j e 


2 Upper/Lower Case (with true 
lower descenders) ® Underline 
7 5 ° Enlarged ¢ Graphics 
(Add $7.50 Shipping) 4 ¢ Plus Much More List $199 


This printer was made by Canon® for the IBM PC and PCjr. The Big Blue printer comes ready to hook up to the serial port of the IBM@PC jr. Plus 
with low cost adapter cables you can connect the Big Blue printer to the Apple® II, Ile,1Ic, Apple Compatibles, Atari®, Commodore® 64 ,128, SX-64, 
Vic 20, Plus 4, IBM®PC, IBM®XT, IBM@AT, IBM Compatibles , T1-99, Tandy 1000, plus many more. 


Intelligent Commodore® Interfac +++ List $49,95 Sale $1 RS-232 Adap List $19,95 Sale $ 9.95 

Intelligent Atarl® Interface List $49.95 Sale $19.95 Paper (2 Rolls) List $19.95 Sales 5.95 

Leser!28, Apple@lic Interface List $24.95 Sale $12.95 Single Sheet Paper (Qty. 500). +» List $29.95 Sale $12.95 
8M, Apple, Conon, Commodore, Atori & Lover ered trodemarks of International Business Machines, Apple Computer, Conon Inc, Commodore Business Machines, Atori Inc, & Video Technologies Respectively. 


Hi-Speed Printer Sale 


©160 - 180 CPS @ yypliiy Warranty’ ° Near Letter Quality 
Bans NLQ-180 Printer Sa | e 


Lana 


NLQ-180 Print Samples 
This 4 an exapple of ITALICS 
Enhanced Boldface 
Mt, Condensed Text Double-strike 
Seek 2 + |example of Near Letter Quality 
20" 


All prices expire 8-31-87 Hine Save 60% Off List Price List $499 











¢ Near Letter Quality Selectable From Front Panel Controls * High Speed Dot Matrix 
¢ Letter Quality Modes © 8K Buffer frees up computer 4-times faster © Super Graphics 
© Pica, Elite, Italics, Condensed ¢ Business or Personal © Tractor/Friction © 15 Day Free Trial 
Lifetime Warranty on Print Head* ¢ 6 Month Immediate Replacement Policy © 


INTERFACES 
Atari $39.95 Apple 11$44.95 Commodore $29.95 IBM$24.95 Laser 128 $19.95 Macintosh $49.95 


om Ee eaanea owe aaeveten cosy COMPUTER DIRECT 312/382-5244 


urance. Illinois residents please add r CIO 
6%% sales tox. Ac HAWAII, UERTO RICO & PROTE! , 
APOLFPO orders, All orders rust be ty U.S, Dellers, WE BO NOT ExPoRT To. |“ Division o} oe Corsmeadore’s pies 
OTHER COUNTRIES EXCEPT CANADA # PUERTO RICO. Enclose cashier check, | 22292 N. Pepper Road, 
money order or personal check. Allow 14 days for 2107 days for phone 
Ordlery, 1 doy express mail, Prices & Availability aubject to change without notice, | Barrington, Ill. 60010 
VISA — MASTER CARD — C.O.D. Call For C.0.0. Char We Love Our Customers 








COMPUTER DIRECT (A Division of PROTECTO) 


Complete C-64 System 


INCLUDES: Computer, Drive, Monitor & Printer 


Sale 


ey $399 
%&% re List $1045 


All this for *399 List 


° Commodore 64 Computer 399900 
© Commodore 1541c Disk Drive $229°° 
* HI-Res 12" Monochrome Monitor +249°° 
Monitor Cable $ 1995 
© Big Blue Printer w/2rollspaper +*)99°° 
Big Blue Intelligent Interface $s 4gvs 


$1045°° 











Total Prices 


160-180 CPS 
Hi-Speed 
Printer 
Option ~<| ¢ promium Word Processor 

With 


at ep 


Z ag Qin 
eS 
. +) \> 


Complete Atari System 


INCLUDES: Computer, Drive, Monitor & Printer 


Sale 


399 


List $1064 


All this for *399 List 


® Atari 130XE Computer 5249°° 
*® Atari 1050 Disk Drive $2999 
* Hi-Res 12" Monochrome Monitor '249°° 
Monitor Cable VAIS 
¢ Big Blue Printer w/2rollspaper *199°° 
Big Blue Intelligent Interface z Ay 
397) 


$1124°° 


All prices 
expire 8-31-87 














Total Prices 


NLQ 


Complete Apple® 
Compatible System 


Computer, Drive, Monitor, Printer & Software 


All this for only *449*: 


° Laser 128K Computer List 3228 
video, parallel & serial ports included 
runs virtually all Apple II/llc/lle software 

¢ HI Res 12"' Monochrome Monitor 

° Big Blue Printer with interface and paper 

° Software Package: word processor, 
spreadsheet & data entry 

* Receive $50 Merchandise Discount When Systom Purchased at $499 

Apple® Is the registered trademark of Apple Computers Inc. 


Shipping, Handling & Insurance Charges 

Add $35.00 for shi or 

64% sales tox. A 

APO-FPO orders. All orders must be In 

OTHER COUNTRIES EXCEPT CANADA & a 

money order or personal check. Allow 14 days for delivery, 2 to 7 days for phone 

orders, | day express mail, Prices & Meni subject to change without notice. 
c 2.0. “all For C,0.D, Charaes 


<a | COMPUTER DIRECT 


Complete IBM° XT 
Compatible System 


Computer, Drive, Monitor, Printer & Software 
Ye, Sale 


aa/ *599 


All this for only *599 : List $2495 
° 10 MHz / 512K Super Turbo XT Computer 

video, parallel! & serial cards included 

3.2 MS DOS & G.W. Basic included 
¢ HI-Res 12'' Monochrome Monitor 
© Big Blue Printer with interface and paper 
° Software Package: word processor, 

spreadsheet & data base 
1M® Is the repistered trademark of International Business Machines, Inc. 


312/382-5244 


For Commodore *Atari 


312/382-5050 


For Apple * IBM 


A Division of PROTECTO 


22292 N. Pepper Road, 
Barrington, tH. 60010 


We Love Our Customers 
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reviews 


Cadpak 128 


If you are looking for a serious Com- 
puter-Aided Design (CAD) software 
package for your Commodore 128, 
Cadpak 128 by Abacus may be the pro- 
gram for you. Cadpak 128 allows the 
user to draw pictures and graphic de- 
signs easily and accurately on the 
screen. Like many other drawing pro- 
grams, functions are provided for draw- 
ing lines, points, boxes, diamonds, 
circles, ellipses and other shapes, but 
there is one feature that makes it stand 
out from other graphics programs: With 
a dot-matrix printer, Cadpak can pro- 
vide accurately scaled printouts—an 
important feature when precise draw- 
ings are necessary. 

Cadpak is a complex, multifaceted 
program, but the logical structure of the 
menus makes it fairly easy to learn and 
use. Most of the functions require you to 
work through several menus before the 
actual function is completed, Though 
this may sound tedious, the flow of the 
selection process actually accelerates 
and simplifies your design work. 

Before using Cadpak for the first 
time, it’s necessary to configure the pro- 
gram for your printer. The list of sup- 
ported printers includes: Epson MX, FX, 
and JX; Itoh Prowriter 8510; Okimate 
10; Commodore 1525/801/803 or 
1526/802; or any printer compatible 
with those listed. We used a Star NX-10 
and configured the program for the Ep- 
son FX, with excellent results. 


The actual size of the printout is 
dependent on the printer you use. 
Using a Commodore 1525/801 or Oki- 
mate 10, there is only one choice for the 
printout size—and the printout will be 
sideways on the paper. Most of the oth- 
er printers enable you to print in two 
different sizes, but using the Epson FX 
configuration, you may select from five 
different sizes (three printed normally, 
two printed sideways). Clearly the pro- 
gram is most flexibie with an Epson FX 
compatible printer. Before purchasing 
Cadpak, you should verify that it will 
work with your printer. If in doubt, 
check with your dealer or give Abacus a 
call. If your printer is not supported, the 
program will be worthless to you. 

Proper use of Cadpak 128 requires 
that you understand a few basic con- 
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cepts. There is the total drawing area 
which has a resolution of 640 points 
wide by 360 points high. Since this area 
is greater than the pixel resolution of 
the computer, you actually view a win- 
dow that is only one-fourth the total 
drawing area. This window may be 
scrolled both horizontally and vertical- 
ly, so you are still able to work over the 
entire drawing area, and a feature 
called “top view” allows you to get a 
condensed picture of the entire draw- 
ing. Though the resolution is lower in 
top view, it is a convenient way to pre- 
view the complete drawing, 


ERE 
There is one feature that makes 
it stand out from other graphics 
programs: With a dot-matrix 
printer, Cadpak 128 can 
provide accurately scaled 
printouts, an important feature 
when precise drawings are 
necessary. 


The primary purpose of any CAD 
software is to obtain accurately scaled 
printouts. Using Cadpak 128, you must 
always remember that everything on 
the screen is geared to the actual print- 
out, With this in the back of your mind, 
the remaining concepts will follow 
quite naturally, Whenever you start 
working on a drawing, you must set 
three important parameters: the actual 
printing area, the base scale unit, and 
the scale ration. 

Selection of the printing area is de- 
termined by your printer. As noted pre- 
viously, the Epson FX allows you to 
choose one of five sizes. Once you've 
selected a size, you've determined the 
maximum printing area, which must be 
considered when selecting the other pa- 
rameters, For example, let's suppose 
you select an area 8 inches wide by 5 
inches high, which is one of the options 
for an Epson EX printer. 





Now you must select the base scale 
unit. This may be either centimeters or 
inches. Again, let's suppose you select 
inches, The final parameter, the scale 
ration, requires a bit of computation 
before you can actually enter exact fig- 
ures. Let’s assume that the maximum 
size of the design will be 300 X 200 
units. You must fit this 300 X 200 de- 
sign into your printing area, which is 
set at 8 X 5 inches. Now, with a little 
calculating, you can choose your scale 
ration, You could choose a ratio of 40 to 
1, which means that every 40 units will 
be 1-inch long on the printout. Dividing 
both 300 and 200 by 40, we find that 
this design would be drawn over an 
area 7.5 X 5 inches, That will fit within 
our total 8 X 5 drawing area, so it is an 
acceptable ratio, When the program 
calls for input as to the number of units 
to the inch, input 40, and you have es- 
tablished a scale of 40 units to the inch, 
If you want the drawing to be a little 
smaller, you can raise the ratio to 50 to 
1; then this same 300 X 200 unit design 
will cover an area 6 X 4 inches. 

The units we're referring to here 
can represent any unit of measurement: 
miles, feet, yards, inches, millimeters, 
even fathoms. If we choose a ratio of 40 
to 1, the scale will be 40 miles (or feet, 
or whatever we choose) for each inch. 
With this in mind, it should be obvious 
that Cadpak can be used to design any- 
thing from a bridge to an integrated cir- 
cuit—and the printout will be drawn 
accurately to scale. 

Once you determine the basic pa- 
rameters, you're ready to draw the de- 
sign. There are two ways to draw on the 
screen: You can use a cursor and draw 
freehand, or you can determine lines 
and geometric shapes by setting points. 
The cursor can be controlled either by 
light pen or keyboard. The program re- 
quires frequent input from the key- 
board, so keyboard control of the cursor 
seems to be more convenient than 
using a lightpen, Cursor movement is 
accomplished in two stages. First you 
rapidly move the cursor close to the 
area where you want to set an exact 
point, and then press RETURN. This 
places you in ‘“Accupoint’” mode, 
where you slowly and accurately posi- 
tion the cursor, This system is fast and 
precise, a pleasure to use. 

You may find that the most sensi- 








ble way to use this program is not by 
drawing freehand, but by setting 
points. When you realize that setting a 
point simply means determining the 
placement of the cursor by your own 
exact units of measure, you can begin to 
understand how CAD differs from sim- 
ple drawing programs. For example: 
Let’s say you’d like to outline the 300 X 
200 unit area. You select the box option 
and set the first point at the lower left 
corner. Now you have to set the oppo- 
site corner of the box, which should be 
300 units to the right and 200 units up 
from the first point. Cadpak allows you 
to enter points as absolute measure- 
ments from the point of origin, or as rel- 
ative measurements from the last point 
set, In this instance, simply set the op- 
posite corner by moving 300 units over 
and 200 up, relative to your first point, 
and press RETURN—you've created 
your 300 X 200 unit box. If we've cho- 
sen a scale ratio of 40 units to the inch, 
this box, when printed, will be precisely 
7.5 inches wide by 5 inches high. 


Cadpak also allows for precise line 
drawing based on angle and distance. If 
you want to draw a line that’s 20 units 
long at an angle of 30 degrees to anoth- 
er line, you can do it easily by setting 
the first point, the angle, and the dis- 
tance, Circles, arcs, and ellipses can be 
drawn with the same precision. Figures 
that are frequently used can be drawn 
and saved on disk as templates. These 
templates are then readily available and 
can be incorporated in any drawing. 


Provision is made for labeling your 
drawing with one built-in font that can 
be printed in any of four sizes. You can 
even create your own fonts, save them 
on disk, and use them later in any 
drawing. Three additional fonts are in- 
cluded on the program disk. There are 
seven built-in patterns for use in filling 
in solid objects, and here again you can 
create your own fill patterns and save 
them on disk. 

There are so many features in Cad- 
pak that it’s impossible to detail them all 
in a relatively short review. A short ex- 
ample, though, may serve to illustrate 
one of the many uses of this compre- 
hensive program. | recently had my 
house and property surveyed, and I 
struck up a conversation with the sur- 
veyor and his assistant. I learned a fair 
amount about the basics of surveying 
from them, and they were kind enough 
to let me copy down their measure- 
ments. They also told me about the new 
and very expensive computer system 
their firm had purchased to make the 
actual drawings from their measure- 
ments. After they left, I rushed inside 
the house, booted Cadpak, and, using 
the measurements they provided, I had 
a perfectly scaled drawing of my house 
and property in less than 20 minutes, 





Surveying is largely a matter of straight 
line measurements and angles, a very 
easy chore for Cadpak. A week later, 
their survey arrived. Their scale was a 
little different than mine (my drawing 
was actually larger), but the drawings 
were perfectly matched in proportion to 
one another. 

Although Cadpak 128 is a wonder- 
ful and versatile package, there are a 
few negative points. While this pro- 
gram is designed on the 128, it uses the 
40-column screen rather than the 80- 
column screen. This might have been a 
compromise decision, for use of the 80- 
column screen could have eliminated 
the need to scroll the window horizon- 
tally. Half the drawing area, instead of 
one-fourth, would have been visible in 
the window. The program is also heavi- 
ly copy-protected, thus the rattle of the 
disk drive each time Cadpak is booted is 
quite annoying. Occasionally, the pro- 
gram wouldn't boot properly on the 
first try, 

The Cadpak manual is scanty, not 
adequately explaining some of the basic 
concepts and lacking helpful hints and 
suggestions for using the program to 
solve “real world” design problems. 
The manual is essentially a basic refer- 
ence with a few short tutorials. You'll 
have to experiment with Cadpak to take 
full advantage of all it offers, but the 
program is not only a highly productive 
tool, but also great fun to use. You'll 
thoroughly enjoy exploring its many 
uses, Cadpak 128, then, is highly recom- 
mended, though this review reveals 
only a brief glimpse of its full potential. 

—Howard Parnes and Tyrone Adams 


Abacus Software 

P.O. Box 7219 

Grand Rapids, MI 49510 
$59.95 
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FSD-2 Excelerator 
Plus Disk Drive 


The Excelerator Plus is a new 1541- 
compatible disk drive for the Commo- 
dore 64 and 128 from Emerald 
Components International. Its prede- 
cessor, the FSD-1, entered the market 
last year and quickly became one of the 
most popular drives for Commodore 
users. In my opinion, the FSD-1 deliv- 
ered much greater value for the price 
than the 1541, while remaining com- 
pletely compatible with all software de- 
signed to load from a 1541 disk drive 
(see the review of the FSD-1 in the 
October 1986 issue). 

My enthusiasm for the FSD-1’s re- 
liability and performance was exceeded 
only by my enthusiasm for its low price 
($139), One can imagine, therefore, the 
trepidation I felt when ECI announced 
the discontinuation of the FSD-1 and 
replacement of it with the Excelerator 
Plus. [have used my FSD-1 almost on a 
daily basis for over a year without a sin- 
gle complaint. With the FSD-1 seem- 
ingly having obtained perfection— 
considering the limitations of the drive 
with which it was designed to be com- 
patible—how could ECI possibly top it? 

Much to my surprise, however, I 
found that the Excelerator Plus incor- 
porates noticeable technological im- 
provements on the reliability and 
quality of 1541-style disk drives, in- 
cluding the FSD-1, while at the same 
time keeping 1541 compatibility. Addi- 
tionally, the Excelerator Plus is compet- 
itively priced well below the 1541C. 

The Excelerator Plus’s advance- 
ments over the 1541, the FSD-1, and 
other 1541-compatible disk drives, are 
basically twofold, First, the power sup- 
ply is a separate unit from the disk 
drive. A chronic problem with the 1541 
and some 1541-compatibles is that the 
internally held power supply overheats 
with extended usage resulting in drive 
failure. While the FSD-1 had an im- 
proved power supply over the 1541, the 
power supply was still located in the 
drive casing. 

Another advantage of separating 
the power supply from the casing is 
that the Excelerator Plus is much small- 
er than the 1541 and even the FSD-1 
(the footprint of the Excelerator Plus is 
approximately 542 X 11 inches with a 
height of only 2 inches). 

The second major improvement 
incorporated in the Excelerator Plus is 
direct drive. The 1541, the FSD-1, and 
most (if not all) 1541-compatible disk 
drives are belt-driven, Audiophiles 
know that direct-drive turntables are 
better than belt-driven turntables be- 
cause of what is known as wow and flut- 
ter (speed fluctuation) in belt-driven 
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The Excelerator Plus Disk Drive from 
Emerald Components 


models. Speed fluctuation on turnta- 
bles causes music distortion. Speed 
fluctuation on disk drives, something 
not uncommon on the 1541, causes 
program-loading problems, particularly 
with sophisticated copy-protection 
schemes. Direct drive, however, en- 
ables the Excelerator Plus to turn floppy 
disks at a constant 300 rpm without any 
discernable wow and flutter. 

The Excelerator Plus incorporates 
several other improvements over the 
1541. Like the FSD-1, the Excelerator 
Plus is housed in a durable metal casing 
the same beige color as the new 1541C. 
Its lock lever has been designed to se- 
curely hold a floppy disk in the drive 
and to prevent breakage of the lever by 
accidently twisting it the wrong way. 

There is a noticeable improvement 
in the stepper motor and pulley on the 
Excelerator Plus, making drive align- 
ment extremely tight and accurate. 
Drive alignment has perhaps been the 
worst problem for the 1541. Many 
Commodore users with two 1541s have 
found, much to their regret, that a copy 
of a program or data files made with 
one disk drive will not run on their oth- 
er 1541 because of alignment discrep- 
ancies between the drives, The 
improvements in the Excelerator Plus 
are designed to prevent any alignment 
problems. Finally, the drive has two 
switches on the bottom of the casing 
that enable users to select the drive's 
device number (number 8, 9, 10, or 11 
can be selected), Commodore users 
with two 1541s have to cut and solder 
wires internally to change the 1541's 
device number. With the Excelerator 
Plus, a simple flip of the dip switches 
will do the job. 

The Excelerator Plus is over 99 per- 
cent compatible with the 1541, a state- 
ment that cannot be made of many 
1541-compatible drives on the market. 
Most compatibility problems for 1541- 
compatible drives stem from the com- 
plex copy-protection schemes used on 
commercial programs. In the never- 
ending battle between copy-protection 
schemers and code busters, the protec- 
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tion schemes have become extremely 
complex, and play on the most remote 
and intimate details of the 1541's inter- 
nals, Any slight deviation in a drive's 
internal operations from those of the 
1541 could cause a copy-protected pro- 
gram to fail to load properly. 

Many 1541-compatibles have been 
overly ambitious in trying to incorpo- 
rate performance improvements in 
loading speed, storage capacity, and so 
on. However, those drives get into com- 
patibility problems because such en- 
hancements require significant internal 
modifications to a 1541. The Excelera- 
tor Plus has managed to be compatible 
with software designed to load from the 
1541 drive, 


The Excelerator Plus is over 99 
percent compatible with the 
1541, a statement that cannot 

be made of many 1541- 
compatible drives on the 
market. 


To test the Excelerator Plus’s 1541 
compatibility, I used my Commodore 
128, 1571 drive, FSD-1 drive, and two 
cartridges: Fast Load (from Epyx) and 
Mach 128 (from Access). Of the 250- 
plus programs tested on the Excelerator 
Plus, no original program disk failed to 
load. All the programs that would fast 
load using the Fast Load and Mach 128 
cartridges with the FSD-1 and 1571 
drives also loaded properly on the Ex- 
celerator Plus, A parameter copy of 
Gemstone Warrior would not properly 
load on the Excelerator Plus, but it also 
did not load on my 1571 disk drive. The 
copy of Gemstone Warrior, however, did 
load on my FSD-1, The programs that I 
tested included GEOS (Berkeley 
Softworks), Newsroom (Springboard), 
Pocket Writer 2 (Digital Solutions), Fast 
Hack’em and Ace of Aces (Accolade), 
World Games (Epyx), Alter Ego (Activi- 
sion), and Fleet System 4 (PSI). 

The only compatibility problem I 
experienced was in a two-drive setup 
with my 1571 drive. While the Exceler- 
ator Plus worked perfectly with pro- 
ductivity software, either as the 
program drive or data drive, I did expe- 
rience a problem with Fast Hack’em and 
Copy II 64/128, two popular copy pro- 
grams. Both worked well with the 
Excelerator Plus when copying with a 
single drive, but neither would copy a 





disk correctly in a two-drive configura- 
tion with the Excelerator Plus as the 
destination drive (the drive writing the 
new disk) and the 1571 as the source 
drive (the drive reading the original 
disk), However, if the Excelerator Plus 
was used as the source drive, both copy 
programs worked. These problems 
were not experienced between two Ex- 
celerators or an Excelerator and the 
FSD-1. Also, Super Kit/1541 worked 
well with the Excelerator Plus in tan- 
dem with the 1571, regardless of which 
drive did what. 

The user's manual provided with 
the Excelerator Plus is adequate, but 
will leave the advanced computerist 
with a lot of questions unanswered. 
The manual is essentially the FSD-1 
manual, with few noticeable changes. 

In summary, the Excelerator is a 
very attractive 1541-compatible disk 
drive for the Commodore 64 and even 
for the Commodore 128. After a thor- 
ough examination of the drive, my skep- 
ticism over ECI’s decision to replace the 
FSD-1 with the Excelerator Plus has 
been dispelled. While not having any 
noticeable improvements over the 1541 
in loading speed or storage capacity, the 
drive does have dramatic improvements 
over the 1541 in quality and reliability. 
As evidence of these improvements, ECI 
provides the Excelerator Plus with a full 
one-year limited warranty. Since the Ex- 
celerator Plus can be mail-ordered at ap- 
proximately $159—about $30 less than 
the 1541C drive—any Commodore 64 
or 128 user looking for a first or second 
disk drive should give the Excelerator 
Plus serious consideration. 

—Scott Thomas 
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Modem 
Commotion!!! 


The Best Commodore Direct-Connect 
Modem for ONLY $99.95. 


Now that you're able to do all those stand alone applications with 
your Commodore, like word processing, spread sheet analysis, 
etc., you are probably thinking “It would sure be nice if | could ex- 
pand the information | have access to." Everything from Electronic 
Mail (E-mail) to stock quotes and huge databases of every imag- 
inable type is now on-line just waiting for you to dial up. All you 
need is a telephone line and a modem connected to your Com- 
modore which allows you to download this information. 

Which modem is best for you?’’ Lets first say that almost all 
modems (and services) are set up to communicate in one of two 
speeds; 300 and 1200 Baud, If you look around you will find that 
there is a flood of 300 baud modems on the market and 
sometimes at very low prices. The reason is simple, they are be- 
ing dumped because most computer users prefer 1200 Baud. 
(1200 Baud Is about 4 times as fast which means you spend less 
time and money getting the data you want and more time using it.) 
Virtually everyone who has a 300 would rather have a 1200. You 
will also notice a few very cheap 1200s on the market at “too 
good to be true prices”. They are, Most are cheaply built foreign 
copies of American designs. The service and support you receive 
is minimal-to-nonexistent for these models. 

Recently we re-evaluated our modem line and discovered that 
the best price/performance tradeoff for our Commodore 
customers would be a straightforward, easy-to-use unit with no 
complicated switch settings or indicators, but one that just did 
what our customers wanted without complications. To our sur- 
prise (and contrary to popular belief), we found that we could build 
the unit in the USA with better reliability and performance levels 
than anywhere else. We found that because of a significant In- 
crease in reliability that American components and manufacturing 
give us, we now have the best fail-safe product possible. An 
unreliable product is not worth the price, however low. Get a 
modem that will satisfy your present AND future needs by going 
directly to the American built Aprotek 12C! 

What do you get for $99.95? Everything! You don't need to 
worry about cables, compatibility or anything else! We don't just 
sell hardware, we sell solutions, The Aprotek 12C plugs directly 
into your Commodore Vic-20, 
C-64, C-64C or C-128 User port, 
The 12C is a full feature, 300 and 
1200 Baud modem with Auto 
Answer, Auto Dial, Touch-Tone or 
rotary dialing, has status indica- 
tions on screen to let you know 
what is happening all the time, The 
12C comes complete with "COM TERM 64" a complete com- 
munications and terminal program and has a built in speaker so 
that you can hear it dial and connect, Just plug it into your com- 
puter and standard phone jack with the supplied cable, (No addi- 
tional power supply required.) Also included is a free trial offer 
subscription to Quantum-Link, the Commodore user database and 
“THE SOURCE”. 

STILL NOT SURE? Aproteks' reputation as a first rate 
peripherals supplier and our 5 year warranty on the 12C plus our 
2 week satisfaction or your money back guarantee tells you that 
we support our products. 

Do you have more than one computer or do you plan to get 
another computer? Call or write for other models. 


The bottom line: 
Aprotek 12C (Commodore) 


olen ei2Ci. meee only $99.95 
Modem shipping-Cont US. 5.00, UPS Blue, Can, APO=$10.00 

















UNIVERSAL RS-232 INTERFACE 


with Commodore User Port expansion. ONLY $39.95+83 S&H 


Now you can connect and communicate with any of the popular 
RS-232 peripherals using your Commodore User Port. You can even 
connect more than one and leave it permanently attached. This 
superb expander opens a whole new world to your Commodore com 
puter’s c: ilities. You can now connect to printers, modems and 
any other RS-232 devices, If you already have a device that connects 
to the User Port, don't worry because 
the port is duplicated on the outside 
edge of the interface. Simply plug it in 
and turn on the device you want to 
communicate with. Comes complete 
with sample driver program listings. 
Compatible with all Commodore 
home computers with a user port. 
1-year warranty, Order #5232. 








™ 

Aprospand-64 Gives your Commodore 64 or 128 
full expandability! This superbly designed expansion module plugs 
into the expansion port & gives you 4 switchable (singly or in any 
combination) expansion connectors —plus fuse protection—plus 
a reset button! Before you buy an expander, be sure that it has a 
fuse to protect your computer and that you can activate your car- 
tridges in any combination allowed by the cartridges. 


4% co 
Mm) 
ow? Me. Carve 
- cot?? 


Order # 5064 
NOW ONLY $29.95 + $3 S&H 


“‘EXTENDER-64"' — 10” Ribbon cable extender for your 
Commodore cartridge port. 


Order #5065 ............. $19.95 +$3 S&H 
NEW! “USER EXTENDER’ — 10” Ribbon cable 


extender for your Commodore USER port. 


Order #5250 ........ - $21,95+$3 S&H 


Commodore Interfaces and Cables 


Cardprint G-WIZ Printer Interface #1108. 
Commodore Serial Extension Cables 
Amiga Printer'Cable § ft) #3040-6MF. 
Amiga Printer Cable (10 ft) #3040-1 OMF.. 
Commodore 6 Pin Serial Cable (5 ft) #3006-5MM.. 
Commodore 6 Pin Serial Cable (8 ft) #3006-8MM.. 


Shipping per above items: $3.Cont.US $6. CAN,PR.HI,AK,APO,UPS Bluo 


PRINTERS 


Aprotek Daisy 1120, 20 CPS, Order #1120 
Auto Cut-Sheet Feeder, Order #1110. 
Tractor Feed, Order #1112 ..ns.nns 


SEIKOSHA 


























Price & Shipping 
$279.95 + $11.00 
$185.00 +$7.00 

vw $ 75.00 + $5.00 





SP-180VC (C64) Order #2050, $154.95 + $10.00 
‘SP-000VC (C-64) Order#2200 $163.95 + $10.00 
‘SP-1000AP Apple llc, Mac Order #2300... $184.95 + $10.00 








SP-1000AS Serial Order #2500, $184.95 +-$10.00 
SP-1200Al (EPSON/IBM) Order #2600... $199.95 + $10.00 
MP-1300AI 300 CPS Order #2700, +» $399,95 + $12.00 


MP-1300 Color Kit Order #2705. $119.95 4$ 5.00 


ORDER INFORMATION California residents add 6% tax. All prices 
are cash prices—VISA and MC add 3% to total. We ship the next 
business day on money orders, cashier's checks, and charge cards. 
A 14-day clearing period is required for checks. Prices and availablity 
subject to change —CALL. Available at Selected Dealers. Dealer 
inquiries invited 

For information call 805/987-2454 


TO ORDER CALL TOLL FREE 
1 (800) 962-5800 - USA 


4 (800) 962-3800 - Calif “’*S” 
Or send order to: 


—— = MROKK -A Avenida Acaso 
CG Camarillo, CA 93010 

















SPRITE HAGTU 











SPRITE HNU TC) 


“Sprite Magic” makes it easy to design animated sequences. These two screen photos show an alligator in two stages of its 


crawl, 


Sprite Magic 


Most of what you've read about 
sprites covers how to program them: 
setting them up, protecting memory, 
moving and animating them, and 
using them in games. But sprite de- 
sign is usually left up to you. 

A sprite is defined by 63 binary 
numbers, The 1 bits in the values 
represent solid pixels, Zeros repre- 
sent blank areas in which the screen 
background is visible, Normally, you 
sketch a sprite on a grid 24 pixels 
(bits) across and 21 pixels high. This 
is 3 bytes per row (8 bits * 3 bytes = 
24 bits) and 21 rows of bytes (3 * 21 
= 63 bytes), But after you’ve drawn 
the sprite, you have to convert the 
squares into binary, and then into 
decimal so that you can put the 
numbers in DATA statements. 

There are utility programs that 
will do the conversion for you, and 
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Charles Brannon 


Three years ago this month, the Gazette debuted “Sprite 
Magic,” an easy-to-use, full-featured sprite editor for the Com- 
modore 64 that simplifies sprite creation and lets you concen- 
trate on the artistic aspects of design. We're reprinting this 
very popular utility for those who may have missed it in the 
August 1984 issue. Following this article are three new sprite 
utilities—each compatible with Sprite Magic. Together, these 
four programs offer an exciting package that will help you use 
the powerful graphics potential of the 64. 


even editors that let you clear and 
set squares with a joystick, Since 
you're using a computer, other 
functions can be supported to let 
you clear, invert, reflect, reverse, 
shift, and test out your sprite. The 
more work the computer does, the 
less you have to think in terms of 
binary numbers, 


“Sprite Magic” offers the best 
features of most sprite editors, in- 
cluding true multicolor mode, and 
pulls it off with the speed and pow- 
er of an all machine language pro- 
gram. Sprite Magic’s style (and 
even some of the coding) is similar 
to that of “Ultrafont +,” the cus- 
tom character editor which ap- 
peared originally in the July 1984 
issue. (A revised version was pub- 
lished in the September 1986 is- 
sue.) Many of the commands are 





the same, so you can get up to 
speed quickly. If you’ve learned 
how to use Ultrafont +, it won’t be 
long before you’re comfortable 
with Sprite Magic. 


Typing It In 

Since Sprite Magic is written entire- 
ly in machine language, you'll need 
to use “MLX,” the machine lan- 
guage entry program found else- 
where in this issue. Be sure to read 
and understand the instructions for 
MLX before typing in Sprite Magic. 
When you run MLX, you're asked 
for the starting address and ending 
address of the data you'll be enter- 
ing. For Sprite Magic, respond with 
the following values: 

Starting address: C000 

Ending address: CA8F 

When you've finished typing 
in the data for Sprite Magic, be sure 
to save a copy to tape or disk before 
leaving MLX. 

To load Sprite Magic, type 
LOAD “SPRITE MAGIC’,8,1 (for 
disk) or LOAD “SPRITE MAGIC” 
/1,1 (for tape). After the program 
has finished loading, you'll see the 
READY prompt. Type NEW and 
press RETURN. This resets some 
important memory locations, but 
leaves Sprite Magic in its protected 








cubbyhole at address 49152 
($C000). To activate the program, 
type SYS 49152. 


Doodle 

After you've typed the SYS com- 
mand, the main screen should in- 
stantly appear, with a large 24 X 21 
grid. The grid is a blowup of the 
sprite you are editing. The actual 
sprite will be seen to the right of the 
grid. The flashing square within the 
large grid is your cursor. Move the 
cursor with either the cursor keys or 
with a joystick plugged into port 2. 
To light up a blank spot (in other 
words, to turn a pixel on), press 
either the space bar or the joystick 
fire button. If the square is already 
lit, it will turn dark, This signifies 
that the pixel has been turned off. 
The button or space bar thus tog- 
gles each point on or off. You can 
draw your sprite quite easily in this 
manner. 

One fine point: With the joy- 
stick, you can hold down the fire 
button and move the cursor. If the 
first point you change was set, then 
the fire button continues to set 
points as you move the joystick, re- 
gardless of the other points’ origi- 
nal state. If the first point you 
change was empty, then you can 
hold down the fire button and 
move about, clearing anything the 
cursor passes over. Notice how any 
changes are immediately visible in 
the actual sprite. 

If you’ve just entered Sprite 
Magic, the grid is probably full of 
garbage pixels. To clear out the grid 
for a new picture, press SHIFT 
CLR/HOME. You now have an 
empty area—a fresh canvas, so to 
speak—to draw on, You can press 
CLR/HOME without holding 
down SHIFT to home the cursor to 
the upper left corner of the grid. 

Does the cursor move too slow 
or too fast? To change the velocity 
of the cursor, press V. Answer the 
prompt with a number key from 0 
(slow) to 9 (very fast). 


Shift, Expansion, 

And Symmetry 

Sometimes when you're drawing, 
it’s necessary to reposition the 
shape within the grid. The first two 
function keys let you shift the sprite 
shape around within the grid. If 
you shift something out of the grid, 
it wraps around to the opposite 





side, The f1 key shifts right; f3 shifts 
down. Use the SHIFT key along 
with the function key to move in 
the opposite direction: f2 moves the 
sprite shape left, and £3, up. 

After you’ve drawn some- 
thing, press F, Instantly, the sprite 
is flipped upside down. Press it 
again to flip it back over. Remem- 
ber F as the command for Flip. Now 
try M (for Mirror). The shape 
you've drawn is mirrored left to 
right. Of course, if you've drawn 
something symmetrical, you may 
not see any change. 

Now try CTRL-R or CTRL-9. 
The sprite will become reversed. 
Every square that was on is now 
turned off, and vice versa. 

A sprite can also be expanded 
or contracted either horizontally or 
vertically, or both horizontally and 
vertically. The X and Y keys on the 
keyboard let you do this. Press X to 
switch from wide to narrow, or vice 
versa. Press Y to switch from tall to 
short, or vice versa. Regardless of 
your choices, the main grid will not 
change size or proportion, 























The Symmetry option was used to draw 
this frightful eagle. 


An unusual command is Sym- 
metry. This command was added 
because many shapes are symmet- 
rical from left to right, as if a mirror 
were put in the middle of the grid. 
To enter the Symmetry mode, press 
the back-arrow (+) key in the upper 
left corner of the keyboard. Now, 
every square drawn on one side of 
the design will be instantly mir- 
rored on the other half. Blank 
squares are not copied over, 
though, so you cannot erase in this 
mode. This command is not only 
quite useful, but is also a great deal 
of fun to play with. To return to 
normal editing, press the back- 
arrow key again. 


Notice the number in the up- 
per right corner of the screen. This 








is the sprite-page number, which 
can range from 0 to 255. You start 
out at the top of the sprite memory. 
The plus and minus keys are used 
to go forward or backward through 
sprite shapes. Press the minus 
key—you immediately have a new 
shape in the grid. 





X and Y expansion increases the size of 
the sprite by four times. 


There is a limit to how far back 
you can go. If you have no BASIC 
program in memory, you can step 
back to sprite-page number 32, 
However, character information re- 
sides in sprite pages below 128. 
You can still clear the page and 
draw a sprite shape on pages below 
128, but it won’t really register. To 
be safe, use only the sprite pages from 
128 up. If you have a program in 
memory, Sprite Magic will not let 
you step back past its end. This pro- 
tects your program from being acci- 
dentally overwritten by a sprite 
shape. If you want maximum space 
available for sprite shapes, use 
NEW to erase any BASIC program 
before you SYS 49152. You'll some- 
times want to keep a program in 
memory, however. We'll show you 
why a bit later, 


A programming note: The 
sprite-page number, when multi- 
plied by 64, gives you the starting 
memory location for the 63 num- 
bers representing the sprite. 


Put It In The Buffer 

You might use Flip to design two 
views of a shape, such as a space- 
ship pointing in two directions. 
Draw one freehand; then create the 
other with Flip. (Mirror can be used 
to design separate left and right 
views as well.) But what you first 
need is a way to copy the original 
shape to another sprite area. One 
way to do this is to copy the sprite 
shape to an area of memory (a buff- 
er). You can use plus or minus to 
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step to another sprite page, then 
copy the buffer to the sprite. (This, 
you may remember, is the way you 
copy characters with Ultrafont.) 
Press f7 to copy the sprite to the 
buffer. The grid flashes to affirm 
this. Then go to the sprite page 
where you want to put the copy 
and press f8 (SHIFT-f7). The shape 
in the buffer replaces any shape al- 
ready in the sprite grid. 

You can also use the buffer as a 
fail-safe device. Before modifying 
an existing sprite, press f7 to save it 
in the buffer. Then, if you mangle 
the sprite, or accidentally erase it, 
you can recall the previous shape 
from the buffer. 


Computer Disney? 

Since you can change sprite pages so 
easily, you can use Sprite Magic as 
an animation-design tool. Cartoons 
make only minor changes between 
frames. Too much change makes the 
animation jerky. So put the first 
frame into the buffer, copy it to the 
next area, and then make a change. 
Put the new image into the buffer, 
copy it again to a new area, and 
make another small change. Contin- 
ue in this fashion as you build up a 
whole series of frames. Put different, 
but similar, shapes on adjacent 
pages; then hold down plus or mi- 
nus to step through the shapes. As 
with cartoon animation, you will get 
the illusion of motion, (Use a cursor 
velocity of 9 for maximum speed.) 
So even if you don’t care to program 
sprites, Sprite Magic is a fun tool for 
making moving cartoons. 


A Bit Of Color 

The normal drawing mode lets you 
set or clear points, but in only one 
color. If you're willing to give up 
half as many horizontal points, you 
can have four colors to work with, 
Multicolor mode lets any square be 
one of four colors, but gives you 
only 12 pixels across instead of 24. 
This is because two dots are 
grouped together to give four com- 
binations. The colors come from 
four memory locations: 


Pattern Color location 


00 53281 Background color 
register 

01 53285. Sprite multicolor 
register 0 

10 53287 Sprite color registers 
53294 

11 53286. Sprite multicolor 
register 1 
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Quick Reference Chart 
Cycle through background colors 
Flip sprite upside down 

Move sprite with joystick 





Mirror sprite from left to right 
Save sprite patterns to tape or disk 
Set cursor velocity 

Toggle horizontal expansion on/off 
Toggle vertical expansion on/off 


CTRL-D 
CTRL-R (or CTRL-9) 
CTRL-X 


Plus key 
Minus key 

CLR/HOME 
SHIFT-CLR/HOME 

Space bar (or fire button) 

CRSR keys (or joystick in port 2) 
Back arrow 


<xengrona 


Reverse sprite 
Exit to BASIC 


Load sprite patterns from tape or disk 


Create DATA statements 


“Next sprite page 

Previous sprite page 
Home sprite-editing cursor 
Erase grid 

Set/clear points 

Move cursor 

Symmetry mode 


1-4 Select drawing color for multicolor mode 


SHIFT 1-4 


fl Shift pattern right 

f2 Shift pattern left 

£3 Shift pattern down 

f4 Shift pattern up 

f5 Multicolor mode 

f6 Normal mode 

£7 Store pattern in buffer 

{8 Recall pattern from buffer 


Change a drawing color 








There are two multicolor sprite 
registers, which are shared among 
all sprites (in programming, but not 
in Sprite Magic, you can have eight 
sprites on the screen at the same 
time). The bit pattern marked 10 is 
unique to each sprite, and comes 
from that sprite’s own color regis- 
ter. Pattern 00 is blank, and what- 
ever is underneath the sprite shape 
will show through. 

The reason for this sojourn into 
bits and addresses is that only the 
ten-bit pattern has a unique color 
for that sprite. If you're designing 
several sprites for a game, remem- 
ber that anything drawn in that 
color can be changed individually 
for each sprite. Squares drawn with 
bit pattern 01 or 11 will be colored 
from two locations shared by all 
sprites. 

Many sprite editors let you see 
how the sprite would look in multi- 
color, but you still have to pair up 
the pixels yourself, and keep track 
of binary bit pairs. Since that’s no 
fun, Sprite Magic offers a multicolor 
mode instead. When you press £5, 
the screen instantly changes. Each 
square in the grid is now rectangu- 
lar, two squares wide. The cursor 
has also been enlarged, and can be 





moved about as before in the new 
grid. But the way you set and clear 
points has been changed, since you 
are now working with four colors. 


Multicolor Palette 
The fire button or the space bar al- 
ways sets a point, but you have to 
tell Sprite Magic which color you 
are currently drawing in. The num- 
ber keys 1 to 4 select the drawing 
color, The number you press is one 
number higher than the binary val- 
ue of the bit pairs in the table 
above. The 1 key, for instance, 
chooses the 00 bit pair, which rep- 
resents the background color. In 
practice, you are choosing from a 
palette of four colors, The 1 key can 
be used when you want to erase, al- 
though the fire button can still be 
used to toggle points on and off. 
When you press a number key 
from 1 to 4, the border color 
changes to remind you which color 
you're drawing with. If you want to 
change one of the four colors, hold 
down SHIFT while you type the 
number. The prompt ENTER 
COLOR KEY appears. Now you 
have to enter another key combina- 
tion. Press CTRL and one of the 
number keys from 1 to 8, or hold 








down the Commodore key and one 
of the number keys from 1 to 8. 
These are the same key combina- 
tions you use to change the text 
color in BASIC, You can also 
change the screen background 
color by pressing the letter B on the 
keyboard until the color you want 
appears, 

Some Sprite Magic commands 
act strangely in multicolor mode. 
For example, a shift left or shift 
right (done with the fl and f2 keys, 
respectively) moves the sprite over 
by only one bit, which changes the 
color assignments. In general, you 
must press f1 or f2 twice to preserve 
the same colors. Pressing the M key 
(for Mirror) reverses the bit pairs, so 
that every 01 becomes a 10. The ef- 
fect is that colors 2 and 3 are ex- 
changed, The R (Reverse) key also 
inverts the bits, so that 01 becomes 
10; 10 becomes 01; 00 becomes 11; 
and 11 becomes 00. Colors 2 and 3 
are switched, as well as colors 1 and 


If you want to go back to nor- 
mal (non-multicolor) mode, press 
the f6 key (SHIFT-f5). There’s noth- 
ing to prevent you from designing 
both normal and multicolor sprites 
on different pages. 

If you changed colors in the 
multicolor mode, some of the colors 
in the normal mode may have been 
changed, You can alter these colors 
as in multicolor mode, Press 
SHIFT-1 to change the color of the 
empty pixels, and SHIFT-2 to 
change the color of the pixels that 
are lit. (You'll be prompted to press 
a color-number key after each 
SHIFT-1 or SHIFT-2 combination. 
Remember to press either CTRL or 
Commodore simultaneously with 
the color key.) 


Mobilizing Your Sprite 

Tf you want to try out your sprite in 
action, press J (for Joystick). You 
can now move the actual sprite 
around with the joystick. The speed 
of movement depends on the cur- 
rent cursor velocity. When you've 
finished putting your sprite 
through its paces, press the fire but- 
ton to return to Sprite Magic. Also, 
if you want to test the animation 
while you are moving about, hold 
down the SHIFT key to step for- 
ward through the pages of your de- 
fined sprites, or the Commodore 
key to step backward. You can use 








the SHIFT LOCK key to keep the 
animation happening while you 
move around. 


Saving Your Sprites 

After all your work, you surely 
want to save your creations on tape 
or disk for future use, You can save 
an individual shape, or all the 
sprites. Press S (for Save), then 
either D (Disk) or T (Tape). Next, 
enter the filename. You'll be asked, 
“Save all from here?” If you press 
N (No), then only the current sprite 
pattern you are working on is 
saved. If you press Y (Yes), then ev- 
ery sprite pattern from the current 
sprite page to sprite 255 will be 
saved. Thus, if you want to save a 
range of sprite patterns, be sure to 
use the minus key to step back to 
the first page you want saved. 

To recall your sprites, press L. 
The Load command loads every- 
thing that was saved. If you're load- 
ing in more than one sprite, be sure 
you step backward far enough with 
the minus key so that all the sprites 
will fit between the current sprite 
page and sprite 255. The sprite pat- 
terns load starting at the current 
sprite-page number. After you've 
pressed L, enter T for Tape or D for 
Disk. 


Making Sprite DATA 
If you’re a programmer, you're 
probably more interested in DATA 
statements. That way, you can use 
BASIC to READ and POKE the 
numbers into memory. Using a 
DATA maker program, you can run 
it on the memory used by the sprite 
in Sprite Magic (again, the memory 
location is the sprite number multi- 
plied by 64). But Sprite Magic has a 
special DATA maker of its own. It’s 
similar to the Create DATA option 
in Ultrafont, but it’s been enhanced. 
Press CTRL-D to create a series 
of DATA statements from the cur- 
rent sprite in memory. Just tap the 
key, or you'll get hundreds of 
DATA statements as the key re- 
peats. Sprite Magic will create eight 
DATA statements, with eight bytes 
per line. The last byte is not strictly 
used. Sprite shapes are made from 
63 bytes, but the sprite areas are 
padded out with one additional 
byte so they will conveniently fall 
in 64-byte groups. To create DATA 
statements for another sprite, use 
the plus or minus key to move to 





the correct sprite page; then press 
CTRL-D again. 

If you have a program already 
in memory, the DATA statements 
are appended to the end of the pro- 
gram, starting with the next avail- 
able line number, To add DATA 
statements to an existing program, 
then, first load Sprite Magic. Type 
NEW. Load your BASIC program, 
and SYS 49152 to enter Sprite Mag- 
ic. You can then load in sprite 
shapes and use CTRL-D to add 
those DATA statements to the end 
of the BASIC program in memory. 

You can check to see that these 
DATA statements were added by 
exiting Sprite Magic (press CTRL-X) 
and typing LIST. Your program 
should have eight new DATA lines 
for each sprite pattern. If there was 
no program in memory, the DATA 
statements form a program all their 
own, starting with line 1, If you 
want, you can save just the DATA 
statements to tape or disk, using the 
normal SAVE command, 

To exit Sprite Magic and return 
to BASIC, press CTRL-X. You can 
also use RUN/STOP-RESTORE. 


See program listing on page 75. @ 








Precision Data Products™ 


POLY PACK LAS 
DISKETTES 


Fl 


2 (From Leading Mfr.) 


* Blank Jackets 
* WP Tabs. 
* Envelopes 


100% Error Free 
Lifetime Warranty 
Sold in Lots of 100 Only 


SONY POLY PACK 
3.5" DISKETTES 


High Capacity Data Storage, Meots the requirements of 
all'3.5° Micro Diskette Drives. 


SS 135TPI 
DS 135TPI 


PRINTER RIBBONS 
Quality replacements for most popular printers. Min /6 
Apple Imagewriter Black 
Apple Scribe BI 
Ej 


Min. Order $25.00. Add 10% for less than 50 
disks. S&H: Continental USA $4,00/100or fewer 
disks. $2.00 per dozen ribbons. Reduced ship- 
ping charge on larger quantities, Foreign or- 
ders, APO/FPO, please call. MI residents add 4% 
tax. Prices subject to change without notice. 
Hours: 8:30 AM - 7:00 PM ET. 


Fe 


re Data Products 
P.O. Box 8367, Grand Rapids, MI49518 
(616) 452. ichigan 1-800-632-2468 
Ourside Michigan 1-400-255-0028 

16) 452.4914 













Lyco Computer 
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COMMODORE I COMMODORE 64= system 


— \| 
mons 128 = 


| 
AON System _ 
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© Commodore 1571 Disk Drive 
© Commodore 128 Computer 
© Thompson 4120 Color 





‘© Commodore 64 C Computer 
@ 1541 C Drive 
S © Seikosha SP-1000VC Printer 





Monitor w/Cable ev We. 
(reg, $789) \ > - 
S499 
COMMODORE PC 10-2 COMMODORE ms 
© Flexible “open ee 
$169.95 


contacts z crmoraacras...sios COMMODORE 
design for easy : 1750 RAM PC 10-1 
installation of : Indus GT C-64 Drive ..... $185 @ A ready-to-use 


variety of options GEOS $36.95 package of 


C-1351 Mouse computing power 
1670 Modem .. $99 and versatile 
128 Computer...» $289 graphics! 
~ $223 @ Commodore 1902 
monitor optional 






640 K RAM and 
two 54" drives 










Blue Chip 64C Dr. % 
Blue Chip C128 Or. ..... SCALL_ | S 
1280 Computer vanonn $CALL | 

1581 DISK DrivO nenniee SCALL | 


6BLWECHIF (Se 


PERSONAL Pcsvowe .. 


MS DOS + Basic Sot... $99 

COMPUTER sem 126 cr. Monitor 

CM 128 Am, Monitor. 

© 100% IBM BCM 14C Color RGB 
’ Montoe 


Compatibles  scccscarced.2m09 Mf Blue Chip Turbo 


BCPC PCIXT Comp ...... 





© dual-speed processor, 
4.77 and 8.00 MHz 


© 640K internal RAM $749 
en \. © color display adapter 
Call for details! 





1-800-233-8760 






































Alll of us at Lyco 
€omputer are grateful 
to the millions of 
customers who have 
helped make Lyco what 
it is today. They have 
come to rely on the Lyco 
symbol as assurance of 
quality products, the 
lowest prices, and 
prompt, courteous 
service, 






. We are continually in contact with 
manufacturers’ representatives, replacing older product lines 
with the newest models, and compiling information to help 
you select the tight product for your needs. 
it to 
Many companies have a toll-free 
number for ordering, but if you just want to ask a question 
about a product, you have to make a toll call. Not at Lyco. 
Everyone on our trained sales staff is very knowledgeable 
about the merchandise we carry, and we're glad to give you 
the information you seek. We also have Saturday hours — 
one more reason to call us forall your computer needs. 










ou. Our tiendly, professional customer 
service representatives will find answers to your question: 
about the status of an order, warranties, product availability, 
or prices. 








dise. 


Chances are we have 
‘exactly what you want 
right in our warehouse. 
That means you'll get it 
fast. In fact, orders are 
normally shipped within 
24 hours. 
Shipping on prepaid 
cash orders is free in the 
U.S., and there is no 
deposit required on 
C.O.D. orders. Air freight 
or UPS Blue/Red 
shipping is also available. 
So, if you're looking for excellent prices, experienced and 
courteous people, immediate access to the quality 
merchandise you want, and fast delivery, call our toll-free 
number. At Lyco Computer, we're always ready to serve you 
in any way we can. 





Hours: 9AM to 8PM, Mon. - Thurs. 
9AM to 6PM, Friday — 10AM to 6PM, Saturday 


For Customer Service, call 1-717-494-1670, 
9AM-5PM, Mon. - Fri. 
Or write: Lyco Computer, Inc. 
P.O. Box 5088, Jersey Shore, PA 17740 
Risk-Free Policy: @ full manutacturers’ warranties @ no sales tax outside PA 
prices 


‘show 4% cash discount; add 4% for credit cards # APO, FPO, 


international: add $5 plus 3% for 4-week clearance on persorial checks @ 


rioity @ 
we check for credit card theft « compatbiy not guaranteed « return authorization 
required « price availabilty subject to change 


(ES 





Computer Area Light Center 

© Heavy-duty woighted base for 
contra stabilty 

‘© Builtin storage for disks, 
pons, and paper 

© Two-hingod desktop arm for 
optimal positioning 


Introductory 
price: $29.95 


(includes delivery) 


QVS-10.5¥4 .. 
QVS-75 5¥ 
QVS-40 3y2 








Poak Peripherals RS232 

Modem adapter for C64/128 

® Adapts std DB25 Modem to 
your Commodore computer 


Only $19.95 Joy 











Data Share-Messenger Modem 
900 Baud Auto Dial/Auto Dus 
‘Answer Modem 


Only $32.95 








Y Epson FXB6 
Epson LX86 
Star NX10 
Star S10 so 
Star SAIS . 











Contriver M:1 Mouse 














Works with Geos: Oki 182-192 : 
. Cone with Graphic Utility pestst SP serie 
Only $32.95 7 
Amiga 
Mouse Pads 


® provides clean, dust-troe éur- 
face for your mouse 








@ No-mar backing to protect 200 shoet laser .. 
your desk surface: 1000 sheet laser 
150 sheot ivory, 2 

150 sheet white, 2 

8x9 2 $B95 cosh cr 
9X11... $10.95 1000 mating tabo 











- SOFTWARE — 












QVS Surge 6-outlet .... $24.95 


‘QVS Surgo 6-outlet with Bank St. Writer: 128K .. $32.95 





EMURF .. . $32.95 Carmen’ San Diego $22.95 
QVS Surgo 6-outlet with ‘Ghamp. Lode Runner. $24.95 
indicator .. » $29.95 Graphic Ub: i) il, iii <.. $15.95 








QVS 6-out. Pow. Strip, $14.95  Karatoka 




















Nortronics 57 Drive 
Cloaner 


Cont 25° AB $49.95 
Cent “36° AB . $49.95 














AS292 ABC . $52.95 
Cont ABC . $54.95, 
S292 ABCD .. $59.95 
Cont ABCD . . $59.95 

Color Ribbons 
Available 
WY  skcT120 vHs 
Video Tape: 








Factory Fresh 
Special Pricing 
Call for Availability 


(Okidata 64 Printer 
‘Okidata 1924 








Graphic Lib. | or It 
Karateka 















Basoball Stadium Bank St. Writor + 
Flight Simulator tt Unison World: 
Jot Simulator ‘Att Gallery 2 
News Master } 





Print Master .. 


Institutions. Also, ask 














Lyco Computer is one of the oldest and The Reliable, Affordable C e 
most established computer suppliers in 







































America. Because we are dedicated to Panasonic 
satisfying every customer, we have earned limited offer a 
our reputation as the best in the business. *with interface or 1080i 
And, our six years of experience in mail- cable purchase 
order computer sales is your assurance of (2-year warranty) - 
knowledgeable service and quality é ars 
merchandise. K 8. , = 
{S = 
Vs a 
PRINTERS — 
oe Monitors 
12004 ... E 
SP-1000AP Ilo... $179 Heese rete Rye) 
SP-1200AS ‘16026082 





SP 180VC 
SL-B80Ai 


Toknika: 
MJ:503 








MP 1300Ai eo 

MP 5300Ai 

BP 5420Ai 

1300 Color Kit .. ‘TR-122 MYP 12" Am TTL..$139 


BPS420Ribbon 
SP1000Ribbon 


TR+122 MOP 12" GrTTL. $199 






1902 Color 
1802 C... 
NEC: 





NB24-15 
NB24-10 
ND-10 
NB-15 


. $459 
D25 
. $329 ge 
. $899 p.gg iF 
(special shipping — call for 
details) 


1b 


© 100 cps draft 

@ 25NLQ 

@ EZ Front Panel 
Selection 

© Auto Single 
Sheet Feed 

Adjustable 
Tractor Feed 


Modem 


ore *$9 
wah ae C&, 





C-64/128 Compatible ; SN sea 


SEIKOSHA (2-year warranty) Toshiba 
SP-1000VC 


© 100 cps Draft | 
Mode 









Enhancer 
© 64K memory 


Xetec Printer yo’ 








© 20 cps NLQ © multi-tasking 
© Direct © 7 direct available 
cebnect . artes two 
C-64/128 dot addressable 
printers 
(rctail $299 — save $145) List price: $249 








We stock Intertacing for Atarl, Commodore, Apple and IBM. 


 ~POWEF BASIC 


Rhett Anderson 
and David Hensley, Jr. 


This handy utility offers a tech- 
nique to let you flip sprites—in- 
cluding those in hi-res or 
multicolor—at machine language 
speed, while conserving memory 
often eaten up by sprite defini- 
tions. It can be used with sprites 
designed by ‘Sprite Magic” or 
other sprite editors. For the Com- 
modore 64, 


Sprites are a unique and very im- 
portant graphics feature of the 64. 
They allow programmers to 
achieve animation with relatively 
little work. There are many good 
sprite editors available, including 
“Sprite Magic,” found elsewhere in 
this issue. 

Sprite Magic allows you to flip 
sprites both vertically and horizon- 
tally. Thus, it’s possible to generate 
four different sprite definitions 
from one pattern. This feature of 
Sprite Magic was used often while 
designing the sprites in “Basketball 
Sam & Ed,” which appeared in last 
month's issue. If you watch the bas- 
ketballs closely while they are spin- 
ning in the air, you'll notice that 
there are four different views, Only 
one of them was drawn, and the 
Sprite Magic commands were used 
to generate the rest. 

The problem with using many 
sprite definitions is the amount of 
memory that they consume. Each 
definition consists of 64 bytes (only 
the first 63 bytes actually contain 
sprite data, but the definitions are 
stored in 64-byte blocks because it’s 
more convenient for the computer 
to deal with data in groups of 64 
bytes). This means that four defini- 
tions would take up 256 bytes— 
more than can be held in a single 
disk block. It’s even worse when 
you store the pattern in BASIC 
DATA statements; in that case, four 
definitions might take up more 
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than four disk blocks. 

“Sprite Flip” allows your pro- 
gram to flip sprite definitions at ma- 
chine language speed, Thus, it gives 
you a nice choice: You can have a 
smaller program or more sprite def- 
initions. Sprite Flip flips both hi-res 
and multicolor sprites. (Sprite Mag- 
ic changes the colors of multicolor 
sprites during horizontal flips.) 


Typing It In 
Program 1, Sprite Flip, is a BASIC 
program which POKEs a machine 
language program into memory. 
Type it in and save a copy to tape or 
disk. To insure accurate entry, use 
the “Automatic Proofreader” pro- 
gram found elsewhere in this issue. 
Program 1 must be loaded and run 
before you use it in your own pro- 
grams. Alternatively, you can 
merge it with your own programs. 
We've included a demo, Pro- 
gram 2, to show how easy it is to 
use Sprite Flip in your programs. 
Type it in and save a copy. Before 
you run it, Sprite Flip must be in- 
stalled by running Program 1. 
The demonstration program 
displays two expanded sprites on 
the screen—one in hi res, and the 
other in multicolor. Press H to flip 
both sprites horizontally. Press V to 
flip them vertically. 


In Your Programs 
To flip a sprite under program con- 
trol, follow this procedure: 


* Make sure that Sprite Flip has 
been installed. 

+ POKE the sprite block number 
into location 781. This number can 
range from 0 to 255. In the demo 
program, block numbers 13 and 14 
were used, (The sprite block is the 
memory location where the sprite 
definition begins, divided by 64.) 
Note that Sprite Flip only works on 
sprites in video bank 0—the VIC 
chip’s default setting. 

+ Fora horizontal flip, SYS 49152. For 


Sprite Flip 


multicolor sprites, use SYS 49155, 
+ For a vertical flip—in either hi res 
or multicolor—use SYS 49158, 


Sprite Flip can be used in two 
ways. First, you can put the same 
sprite definition into four different 
sprite definition blocks and use 
Sprite Flip to flip the second and 
fourth ones horizontally and flip 
the third and fourth ones vertically. 
This allows you to create animation 
by changing sprite pointers—the 
fastest and most versatile way to 
use Sprite Flip. This technique was 
used in Basketball Sam & Ed. 

If you don’t have many sprite 
definition blocks available, you can 
use Sprite Flip in realtime, flipping 
the definitions whenever you need 
to. The Sprite Flip Demo uses this 
method—there is only one sprite 
definition for each sprite. The sprite 
definitions are flipped upon demand. 

The ML program resides in 
memory from 49152 to 49329. In 
addition, it uses about 70 bytes of 
memory directly after the program 
as a work area. 

See program listings on page 92. @ 











All programs 
listed in this 
magazine are 
available on the 
GAZETTE Disk. 
See details 
elsewhere in 
this issue. 











Sprite Stamp 


Bennie J. Montoya 


It’s never been easier to draw detailed hi-res pictures. This pro- 
gram lets you “stamp” your own sprite definitions—including 
those designed with “Sprite Magic’—onto the hi-res screen. For 
the Commodore 64 with a disk drive and one joystick. 


“Sprite Stamp” is a computer draw- 
ing program with a new twist—you 
draw with detailed sprite “brushes.” 
It’s a clever way to create complex 
and detailed hi-res screens. 


Typing It In 

Sprite Stamp (Program 1) is written 
in machine language, so it must be 
entered with the “MLX” machine 
language entry program found else- 
where in this issue. When you run 
MLX, you'll be asked for the start- 
ing and ending addresses for the 
data you'll be entering. For Sprite 
Stamp, respond with these values: 
Starting address: C000 

Ending address: CAS5F 


After you have entered all the 
data from Program 1, be sure to save 
a copy of the program before exiting 
MLX. Don’t try to run Sprite Stamp 
yet. You first need some sprite 
shapes to use as stamp patterns. 

Program 2, ‘Starter,’ is a 
BASIC program that allows you to 
load and save the high-resolution 
screen images you create with 
Sprite Stamp. You can use Sprite 
Stamp without Program 2, but 
without Program 2 you won't be 
able to save or modify your designs. 

Before you begin working with 
Sprite Stamp, you must create at 
least one set of sprites for stamp 
patterns. You can create them by 
hand if you like, but the easiest way 





to design the patterns is with a 
sprite editor like “Sprite Magic.” If 
you use Sprite Magic, create DATA 
statements from your sprites begin- 
ning at line number 50. When 
you've finished making the sprite 
data, exit Sprite Magic and type 
LIST. You should see the DATA 
statements generated by Sprite 
Magic. If there are no DATA state- 
ments, return to Sprite Magic by 
typing SYS 49152 and try again. 
Once you're sure that the DATA 
statements are in memory, add the 
lines shown as Program 3. Then 
save the resulting program to disk. 

If you create your sprites by 
hand, you'll have to create the 
DATA statements yourself. Use 
Program 3 as a.skeleton. Begin 
numbering your DATA lines at 50. 

Designing sprite shapes re- 
quires one special consideration. 
Sprite Stamp includes a Rotate 
command that allows you to turn 
the pattern in 90-degree incre- 
ments. Since sprites are 24 pixels 
wide but only 21 pixels high, you 
should leave the rightmost three 
columns of pixels in the pattern 
blank. (That is, limit your sprites to 
21 X 21 pixels.) If you use the full 
width of the sprite, the rightmost 
columns of the pattern will be lost 
when you use the Rotate command. 

You can make several different 
sets of sprites and save each set to 
disk with a different name. For in- 





stance, you might have a set with 
electronic symbols, and then use 
those symbols to design circuits. 
Another set could be made up of 
clowns and tent sections to make 
circus scenes, 


Getting Started 

Follow this procedure to use Sprite 
Stamp: 

* Load your sprite data program 
(Program 3 with DATA statements 
added). 

*Type RUN to put the sprite pattern 
information into memory; then 
type NEW. 


* Load Sprite Stamp (Program 1) 
with a statement of the form 
LOAD “SPRITE STAMP’,8,1 

* Type NEW. 

+ To start Sprite Stamp directly, use 
a statement of the form 

SYS 49152,n 


where 1 is the number of different 
sprite patterns in your sprite data 
program. 

+ To use the Starter program, which 
allows the loading and saving of 
Sprite Stamp screens, load Program 
2 with a statement of the form 
LOAD “STARTER",8 


+ Replace the variable S in line 100 
with the number of sprite patterns 
in your sprite data program, 


* Type RUN. You'll be asked if you 
want to load a previously created 
picture file. If you answer Y, you'll 
be asked for the name of the file. If 
you answer N, you'll proceed di- 
rectly to the drawing program. 
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( DELUXE RS232 | 
INTERFACE 


for modems, etc. 


The Deluxe RS232 Interface 
allows you to use an external 
S232 modem oF other acces 
sories with your Commodore 
64, 128, 64C, Plus4, and 
SX64. It has been updated to 
give your 1200 baud modem 
Complete 1670 compatibility, 
Intemal jumper blocks allow easy setting of individual 
Control lines. This ensures complete compatibility 
with all software and modems. Omnitronix has been 
designing Commodore AS232 connections for three 
years and we guarantee you 
the best in technical support 
Easy to understand instruction 
manual. Programming ex: 
amples. 30 day money back 
guarantee. Call 


tc 
nieraten P4995 


information, 































SERIAL PRINTER 
INTERFACE 
for serial printers 











SEMUAL 
PRINTER 
INTERFACE 













THii-W the interface you need to hook your seial printer to your 
Commodore computer The Serial Printer Interface connects 1 the 
‘Commodore serial bus, and then tothe RS232 comection on your 
printer. This ensures optimum compatibility wth all your software 
‘No other cables are needed. The Serial Printer Interface supports 
(graphics on most popular dot matex printers, DIPSwiteh settings 
(on the interface allow you to select trom 75 10 19200 baud Aso 
select word, parity. and OTR or XON/XOFF handshaking Power 
either trom the cassette port or an exteral supply (not included) 


ton Panne wares $79.95 
Use your M 
Commodore 
















Printer 

with your 

PC compatible 

Uae an 1M F™ busi want oe you Camm 






printer? Now. with our new 1BM/CBM INTERFACE. you can use 
you Commodore compatible printer fot printing on you PC 
compatible Connect to any standard FC parallel port Supports 
vctually all text applications Some graphics support of graphics 
characters and graphics printouts when Using Commodore printers 
which support graphics. Cable, disk. ard instructions supped 
Requires DOS 20 o up. 1BM FC is 
a TMot IBM Cop 











SEE YOUR LOCAL DEALER OR ) 
CALL (206) 624-4985 


30 day money back guarantee it not satistied (less 
shipping), Visa & Mastercard welcome! 


Omnitronix, Inc. 
760 Harrison St. Dept. G - Seattle, WA 98109 J 










This detailed Commodore 64 hi-res screen was created by the 
18 sprites shown above using “Sprite Stamp.” 











Sprite Art 
It’s easy to create pictures with 


Sprite Stamp. Use the joystick 
(plugged into port 2) to control the 
rectangular cursor. The following 
keyboard commands are used with 
the program: 

Clear screen 

Change background and drawing 

colors 

Exit 

Set stamp mode 

Set erase mode 

Rotate 
ace Change sprite patterns 


ZRmox an 


Unless you loaded a previous- 
ly created screen, you'll probably 
want to begin by pressing C to clear 
the drawing screen. The current 
stamp pattern is shown in a win- 
dow on the right side of the screen. 
Press the space bar to cycle through 
the available shapes. (The program 
cycles through the number of pat- 
terns you specify in the SYS state- 
ment that starts Sprite Stamp, so be 





sure to use the correct number.) 

When you press S (for Stamp), 
the current shape is put down in the 
drawing color at the position indi- 
cated by the drawing cursor. When 
you press E (Erase), the pattern is 
put down in the background color. 
Press R (for Rotate) to rotate the 
pattern by 90 degrees. 

To exit from Sprite Stamp, 
press X (and then RETURN). If you 
entered Sprite Stamp using the 
Starter program, you'll be given the 
opportunity to save the screen you 
just created (you'll be asked to give 
the picture a filename). If you don’t 
wish to save your picture, press RE- 
TURN alone to exit the program. 
Otherwise, type a name for the file 
in which your screen image will be 
saved. 

The hi-res screen used by 
Sprite Stamp is located in memory 
at locations 8192-16191. 

See program listings on page 76. @ 








Multisprite 


John Augustine 


Easily combine up to eight sprites to make larger, more realis- 
tic images on your 64 with this machine language enhance- 
ment to “Sprite Magic.” A disk drive is required. 


Although the “Sprite Magic” sprite 
editor makes sprite design easy, it is 
lacking one potentially useful fea- 
ture: the ability to combine two or 
more sprites to make a larger sprite. 
Many recent commercial games 
have used this technique with great 
success. For example, some games 
use one sprite for a head and torso, 
and another for legs and feet. Drag- 
ons and snakes can be made by put- 
ting two or more sprites together 
horizontally, and hi-res sprites of 
more than one color can be made 
by overlaying two or more sprites. 

‘“Multisprite’’ wedges into 
Sprite Magic, providing all the ad- 
ditional tools that you'll need to de- 
sign images made of multiple sprites. 


Typing It In 
Multisprite consists of two pro- 
grams. Program 1, the main pro- 
gram, is written in machine 
language. Type it in with the 
““MLX’’ machine language entry 
program located elsewhere in this 
issue, When you run MLX, you'll be 
asked for the starting and ending 
addresses of the data you'll be en- 
tering. For Multisprite, respond 
with these values: 
Starting address; 8000 
Ending address: 846F 

When you've finished typing 
in the program, be sure to save a 
copy to disk before leaving MLX. 
When saving the program, use the 
name MULTISPRITE. 

A boot program is also includ- 
ed. Type in Program 2 and save it to 








All eight sprites are being used to create 
a giant man. 





The sprites have been moved closer to- 
gether, joining all eight into one 
multisprite, 


disk, This program loads both Multi- 
sprite and Sprite Magic. For every- 
thing to work together, the boot 
program, Multisprite, and Sprite 
Magic must all be on the same disk. 
Program 2 expects the Multisprite 
program file to be named MULTI- 
SPRITE and the Sprite Magic pro- 
gram file to be named SPRITE 
MAGIC. If this is not the case, 
either rename the programs or 
change the names in lines 20 and 40 
of Program 2. 





Getting Started 

Multisprite is an extension of Sprite 
Magic, so if you're familiar with the 
operation of Sprite Magic, you'll feel 
right at home with Multisprite. If 
you're unfamiliar with Sprite Magic, 
it’s best to learn how to use all of the 
features of that program before try- 
ing to use Multisprite. All of Sprite 
Magic's features work as intended 
when you're using Multisprite. 

Let’s draws a sample multi- 
sprite. First, load and run the boot 
program. Sprite Magic and Multi- 
sprite will be loaded and you'll see 
the familiar Sprite Magic screen. Go 
to sprite definition 150 (travel 
through the definitions by using the 
+ and — keys.) You'll eventually 
want to position your sprites on the 
Sprite Magic screen, and you can 
make this task much easier by turn- 
ing on all the pixels in the sprites. 
This is best done by pressing SHIFT- 
CLR/HOME and then CTRL-R. As 
many as eight sprites may be com- 
bined into one multisprite. You'll 
use two sprites in this example, so 
go to sprite 151 and repeat these 
keystrokes, 

The program must keep track 
of which sprite is the “start” sprite. 
To select sprite 150 as the start 
sprite, move to that pattern and 
press the British pound key (£). 

Your next task is to position 
your sprites on the Sprite Magic 
screen. Sprite Magic normally 
shows only one sprite on the 
screen, so it’s natural that it always 
puts it in the same place. But Multi- 
sprite can move its sprites so that 
you can make horizontal multi- 
sprites, vertical multisprites, or 
overlayed sprites. 

When you pressed the £ key, 
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the screen color should have 
changed to yellow. This means that 
Multisprite is ready for a command. 
To make it easy to reference the 
various sprites, Multisprite num- 
bers its sprites beginning at 0. Since 
you are using two sprites, begin- 
ning at 150, Multisprite refers to 
sprite definition 150 as 0 and 151 as 
1. When you give Multisprite a 
sprite number as a comman<, it lets 
you position that sprite. Press 1 and 
use the cursor keys to move sprite 1 
next to sprite 0. The screen turns 
purple to show that you can move 
the sprite. When you're satisfied 
with the relative position of the 
sprites, press RETURN. Multisprite 
is ready for another command. If 
you were working with more than 
two sprites, you would position 
them all before continuing. Press 
RETURN to leave Multisprite mode 
and enter Sprite Magic mode. (Your 
screen should turn gray.) 

Now use Sprite Magic's editing 
features to design your multisprite, 
flipping between sprites 150 and 
151 as needed. Both sprites will be 
displayed at all times. The first 





@ “Directory Filer Plus” (June) con- 
tains a bug in the Insert Divider 
function, If, for example, your di- 
rectory looks like this: 

PROGRAM 1 

PROGRAM 2 

PROGRAM 3 

PROGRAM 4 


attempting to insert a divider be- 
tween Program 1 and Program 2 
will modify the directory as 
follows: 


PROGRAM 1 


PROGRAM 3 
PROGRAM 4 
PROGRAM 4 


Program 2 is lost and Program 
4 appears twice in the directory. Do 
not save the directory back to disk 
by pressing f1; doing so effectively 
erases Program 2 from your disk. If 
you do save the corrupted directory 
to the disk, the data from Program 2 
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thing you might want to do is clear 
the sprites with SHIFT-CLR/ 
HOME. 

When you've finished editing 
your multisprite, go back to the 
start sprite and press £. Then press 
SHIFT-CLR/HOME., This will not 
clear the sprite. It simply resets the 
Multisprite parameters. You are 
now free to go to another sprite def- 
inition area and draw another multi- 
sprite. 

Multisprite also allows hori- 
zontal or vertical expansion of the 
sprites. Simply move to the starting 
sprite in the multisprite and press £ 
and then X (for horizontal expan- 
sion) or Y (for vertical expansion). 
Note that you cannot expand indi- 
vidual sprites within a multisprite; 
all the constituent sprites will be ex- 
panded, and the expansion com- 
mand should be specified only for 
the starting sprite of the group. 


Multicolor Multisprites 

Working with multicolor sprites in 
Multisprite is not difficult, but it is 
important to understand the basics 
of multicolor sprites before at- 


Dug-swatter 


is not removed from the disk—the 
directory entry for the file is simply 
missing. However, without a direc- 
tory entry, the disk drive cannot 
find the file, and therefore you will 
be unable to access the data in that 
file. To correct the Insert Divider 
function, change the STEP value in 
line 1000 from 1 to —1: 


1006 N=N+1:FOR X=N TO F+1 STEP-1 


Retrieving a missing file is 
much more difficult. A file whose 
directory entry has been erased by 
the faulty Insert Divider function 
can be recovered if no other files 
have been saved to the disk since 
the file was lost. The easiest way to 
recover the missing file is to vali- 
date the disk (do not use the normal 
Commodore Validate command on 
a disk that includes GEOS files) and 
use a program like VIEW BAM from 
the 1541 TEST/DEMO disk that 








tempting to design one. 

In multicolor, all sprites share 
the same colors. The lone exception 
to this is the color obtained by press- 
ing the 3 key in Sprite Magic (which 
is actually color 2—binary bit pat- 
tern 10). Each sprite may have a dif- 
ferent color for this bit pattern, 
When working with Multisprite, 
you must set key color 3 separately 
for each sprite in your multisprite. 

Note that you cannot specify 
multicolor for individual sprites 
within a multisprite. When you're 
designing a multicolor multisprite, 
all the constituent sprites must be 
designed in multicolor mode. 


In Your Own Programs 

Once you've designed your multi- 
sprite, you'll want to use it in your 
own programs. If you are familiar 
with programming sprites, this 
should be no problem. The impor- 
tant thing to remember is that each 
multisprite is still made up of more 
than one sprite. Whenever you move 
a multisprite, you must move every 
sprite that comprises the multisprite. 
See program listing on page 84. @ 








Modifications and Corrections 


came with your disk drive to find 
the unused sectors on the corrupted 
disk. Then, using a disk sector edi- 
tor, search the unused sectors on 
your disk for the deleted file. When 
you find the missing file, you must 
rebuild the directory entry manual- 
ly. Make sure you validate the disk 
again when you finish (again, do 
not validate a GEOS disk using the 
regular Validate command). The 
manual that came with your 1541 
contains information on how direc- 
tories are constructed that will help 
you in rebuilding the entry. This is 
not a procedure that should be at- 
tempted by a novice. If you abso- 
lutely must recover the lost file, 
copy the corrupted disk to another 
disk, and work on the copy. 

The problem with Insert Divid- 
er exists only in the printed maga- 
zine version; the version on the 
Gazette Disk is correct. @ 








80-Column Disk Sector Editor 


For The 128 


Matthew Desmond 


Inspect and alter information anywhere on a disk with this ex- 
ceptionally high-quality sector editor. An 80-column monitor is 


required. 


One of the most valuable tools a 
programmer can have is a sector 
editor. With it, he can inspect every 
nook and cranny of a disk and 
change anything he likes—it’s even 
possible to peruse the contents of 
files that have been deleted but 
have not yet been overwritten. 
“80-Column Disk Sector Edi- 
tor” is arguably the best disk editor 
we've published to date. Its 80- 
column screen lets you see all the 
information at once—which sector 
and track you're on, the entire sec- 
tor in both hex and character repre- 
sentation, and a menu of commands, 
And it’s all color-coded to help you 
find the information you need. In 
addition, all of the available com- 
mands are displayed constantly in a 
menu at the bottom of the screen, 


Typing It In 

Disk Sector Editor is made up of 
three programs. The first is written 
in BASIC. It adjusts BASIC pointers 
to reserve memory for the machine 
language portion of the program. 
Type it in and save a copy to disk. 

The second program is also 
written in BASIC, Type it in and 
save it with the name SECTOR 
-BAS. Since this program tries to 
load Program 3, do not attempt to 
run it at this point. 

Program 3 is written entirely in 
machine language, so you must en- 
ter it using the Commodore 128 
version of the ‘““MLX” machine lan- 
guage entry program found else- 
where in this issue. When you run 
MLX, you'll be asked for the start- 
ing and ending addresses for the 





data you'll be entering. For Pro- 
gram 3, respond with the following 
values; 


Starting address: 
Ending address: 


1D00 
2127 


When you've finished typing 
in the data, be sure to save a copy to 
disk before leaving MLX, Use SEC- 
TOR.ML as the filename—Program 
2 looks for a file with that name. 


Using The Program 

All three programs must be on the 
same disk in order for 80-Column 
Disk Sector Editor to work. Be sure 
you're in 80-column mode. (Disk 
Sector Editor does not produce a 
display in 40-column mode.) 

Load and run the boot program 
(Program 1). This program loads 
Program 2 (SECTOR.BAS), which 
in turn loads Program 3 (SECTOR 
-ML). The sector editor screen 
should appear. 

A disk block (also known as a 
sector) is made up of 256 bytes, A 
byte can hold an integer value in 
the range 0-255 (00-FF in hexadec- 
imal) or one ASCII character. The 
bulk of Disk Sector Editor’s screen 
is made up of two charts. The larg- 
est of these gives the hexadecimal 
equivalent of each number in the 
current block. The other chart holds 
the Commodore ASCII equivalent 
of the number. You can use these 
charts interchangeably. In some 
cases, the textual display is more 
useful. In others, you'll prefer the 
numeric display. 

Several boxes below the charts 
hold useful data, some of which is 





extracted from the current block. 
The first two, Track and Sector, 
hold the track number and sector 
number of the current block. Link 
Track and Link Sector hold the link 
block of the current block. These 
values are valid only within files. A 
file which is longer than one disk 
block may not necessarily go into 
consecutively numbered sectors, 
The link information provides a 
“thread” the system follows when 
it loads or reads a file, The link 
information is stored in the first two 
bytes of the block. 





Examine every sector of your disk with 
this powerful utility written to use the 
80-column capability of the 128. 


Other boxes hold the number 
of bytes used in the block, the posi- 
tion of your editing cursor, the val- 
ue of the byte under the cursor 
(given in hex, decimal, and charac- 
ter representations), the disk name 
and ID, the device number, and the 
drive number. 

At the very bottom of the 
screen, in red, is a menu of the com- 
mands. Not all of the commands 
are visible at once. Press N (next 
menu) to see the remaining com- 
mands. If a disk error occurs, the 
menu will disappear and an error 
message will appear. Press any key 
to get back to the menu. 
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The commands are as follows: 


Display the next higher block. 

Select a new block to display. You 

will be prompted for the track and 

sector number. 

@_ Enter a new value for the hex number 
at the current cursor location within 
the sector, Note that the change will 
not be saved to disk unless you use 
the W (write sector) command, 

# — Select a new drive. 

W_ Write the current block to disk, Be 
very careful with this command, 

— Display the next lower block. 

L__ Display block pointed to by the link 
information in the current block. 

T Input new text at the current cursor 

position within the sector. Press RE- 

TURN when you've finished, The 

change will not be saved to disk un- 

less you use the W command. 

Select a new device number. 

Send disk command to the drive. 

Format a disk, 

Quit 80-Column Sector Editor, 

Display a catalog of the disk. 

Exchange disk. Allows you to inspect 

a different disk. 

M_ Move block. You will be prompted 
for a new location for the information 
in the block. 

N __ Display the alternate menu. 


cee 


mnozwgs 


For all commands which 
prompt you for more information, 








such as a track or sector number, 
you can press the ESC key to cancel 
the command and return to the 
main menu. 


Disk Structure 

Sector 0 of track 18 holds the block 
availability map (BAM) for the disk. 
Bytes 0 and 1 of this sector point to 
the first block of directory entries. 
Bytes 144-159 hold the disk name 
padded with shifted spaces, Bytes 4 
through 143 hold the actual BAM. 
Each bit in each byte holds the sta- 
tus of a sector (whether or not it is 
available for use). Interpreting the 
BAM is a difficult and technical 
subject beyond the scope of this ar- 
ticle, so a reference book which 
covers the inner workings of Com- 
modore disk drives is almost a ne- 
cessity when working with a disk at 
this level. 

Let's take a look at the disk di- 
rectory. Go to the first sector of the 
directory (pointed to by bytes 0 and 
1 of track 18, sector 0; normally sec- 
tor 1 of track 18), In the ASCII chart 
for the directory sector, you'll see 
eight filenames (assuming you 
have at least eight files on your 
disk). The two numbers immediate- 





ly preceding the filename give the 
starting track and sector numbers 
for the file. The number preceding 
those numbers gives the file type. 
An $80 represents a deleted file, If 
you've accidentally scratched a file, 
changing this number to $82 (PRG) 
or $81 (SEQ) will recover it, assum- 
ing that you haven't saved any more 
files to the disk since the accidental 
deletion. To permanently protect 
the file, the BAM must be changed 
to reflect the sectors in this file as be- 
ing in use, This is often more trouble 
than it is worth, A better solution is 
to validate the disk at this point. 
This will let the disk drive set up the 
BAM to match the directory, Anoth- 
er solution is to go to BASIC, load 
the newly recovered program, save 
it to another disk, and then go back 
with the sector editor and again 
mark the file for deletion. 

Sector editors can be as dan- 
gerous as they are powerful. The 
safest route to follow is to make 
changes on a duplicate copy of the 
disk. At the very least, make copies 
of all the irreplaceable files on a 
disk before using any sector editor. 
See program listings on page 84. @ 
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Predicted Scores Each Week 
Season Schedule By Week 
Season Schedule By Team 
Scores By Week 
Scores By Team 
Win Loss Record Home/Away 
Division Standings 
Stats — Accumulated & Average 
Line By Week 
Line By Team 
Record vs Line 
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Individual Team Match-Ups 
Printed cape All Screens 
1983-1986 Data Base 
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95, INCLUDES Disk AND 
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* IBM, Tandy & Compatibles 

* Commodore 64 — 128 

* Apple Il+ — llc — lle — IIgs 
* TRS 80 Mill /IV 


Stats Needed To Run Program Available In 

Local Newspapers Or We Will Furnish All Stats 

By 1st Class Mail. Season Price 40°. 

Our Bulletin Board Will Furnish All Stats, Lines, 
Predictions and Trends Updated Daily. Season 
Price 55°°, Program Comes Updated Thru Current 
Week of Season . . . No Extra Charge. 


ORDERS SHIPPED IN 2 DAYS: 
PHONE LINES OPEN 24 HRS, 
ADD 3° SHIPPING & HANDLING 


TOLL FREE — 800-722-2277 
TEXAS COLL. — 214-586-8212 


MaratHon Sortware Dept. G 
P. 0. BOX 1349 — 641 FORT WORTH ST. 
JACKSONVILLE, TEXAS 75766 
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Programming Books 
from COMPUTE! 


COMPUTE! Books offers a line of programming books for the intermediate to 
advanced Commodore 64 and 128 users. These reference books take you 
beyond BASIC and into machine language programming, helping you learn 
about memory maps, addresses, the new GEOS, and time-saving routines you 
can add to your own programs. 































COMPUTE!'s 128 Programmer's Guide 

Editors of COMPUTE! 

ISBN 0-87455-031-9 444 pages 

A complete guide to the Commodore 128, this book expiores BASIC 7.0, shows 

you how to create graphics and sounds, explains how to program peripherals, COMPUTE!’s 

or introduces you to machine language programming. 
17.95 





Mapping the Commodore 128 
Ottis R. Cowper 
ISBN 0-87455-060-2 704 pages 
The comprehensive memory map and programmer's guide that provides a 
detailed explanation of the inner workings of the Commodore 128 including 
memory management, BASIC 7.0, /O chip register, the operating system, 
nate RAM, and more, 

19.95 





Machine Language Routines for the Commodore 128 
and 64 

Todd Heimarck and Patrick Parrish 

ISBN 0-87455-085-8 592 pages 
This collection of machine language routines Is a must for every Commodore 
128 and 64 machine language programmer. Scores of these routines can sim- 
ply be inserted into your own programs. Included Is the assembly language 
code with easy-to-understand documentation and instructions. There is a 
companion disk avaliable for $12.95 that includes all the programs in the book 
(858BDSK), 





Programming the Commodore 64 Revised: 
The Definitive Guide 

Raeto Collin West 

ISBN 0-87455-081-5 642 pages 
This bestsoling, encyclopedic reference guide which covers the Commodore 
64 In its entirety has been updated to include Information on the new Com- 
Mmodore 64C and GEOS, from Berkeley Softworks. There /s also a disk avaliable 
feria Which includes the programs in the book (507BDSK). 
















Mapping the Commodore 64 and 64C 
Sheldon Lemon 

ISBN 0-87455-082-3 324 pages 
An update of the bestselling memory map and programming guide that's a 
necessity for intermediate and advanced programmers, This definitive 
sourcebook has been expanded and now covers the new icon-based GEOS 
(Graphics Environment Operating System) with clear descriptions of how to 
make it work for you. For BASIC and machine language programmers of both 
the Commodore 64 and 64C. 

$16.95 









































These books are now avallable at your local book or computer store. 
You can also order directly from COMPUTE! by calling toll free 800-346-6767 (In NY call 212-887-8525) or 
by mailing your order to COMPUTE! Books, P.O, Box 5038, F.D.R. Station, New York, NY 10150. 

Please include $2.00 postage and handling per book or disk. NC residents add 5 percent sales tax, and NY residents add 
8.25 percent sales tax. Please allow 4-6 weeks for delivery. 


COMPUTE! Publications, Inc. COMPUTE! books are available outside the United States from 
re 


Fat of ARC Cormurer Mogooret subsidiaries of McGraw-Hill Intemational Book Company. 
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NRI Trains You At Home—As You Build 
Your Own IBM PC Compatible Computer 





GET THE KNOW-HOW 
TO SERVICE EVERY 
COMPUTER ON THIS 
PAGE... 

AND WORE! ; 


Learn the Basics the NRI Way— 
and Earn Good Money Troubleshooting 
Any Brand of Computer 


The biggest growth in jobs between now and 1995, 
according to Department of Labor estimates, will 
occur in the computer service and repair business, 
where demand for trained technicians will actually 
double, 


You can cash in on this opportunity—either as a 
full-time corporate technician or an independent 
service-person—once you've learned all the basics of 
computers the NRI way. NRI's practical combination 
of “reason-why" theory and “hands-on” building skills 
starts you with the fundamentals of electronics, then 
guides you through advai i 
and on into computer electronics, You also learn to 
program in BASIC and machine language, the 
essential languages for troubleshooting and repair. 


Total Computer Systems Training, 
Only From NRI 


No computer stands alone 's part of a total 

system. ‘To really service computers, you have to 

understand computer systems. And only NRI includes 

a powerful computer system as part of your training, 

centered around the new, fully IBM PC compatible Azole pegs eglteed Nademarts ot Apple 
‘ompate, Ine 


Sanyo 880 Series computer. Compaq sa Registered Trademark of COMPAQ Computer Corporation. 
1985 ATAT Technologies, Ine. 
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IBM is a Registered Trademark of IBM Corporation. 















You start with 
the step-by-step 
assembly of the new, highly-rated, Sanyo 
computer. You install and trouble- 

shoot the “intelligent” key- 

board, Then you assemble the 

power supply, install the disk 

drive, and add extra memory to 

give you a powerful 256K RAM system. 
The new 880 computer has two operating speeds: 
standard IBM speed of 4.77 MHz and a remarkable 
turbo speed of 8 MHz, making it almost twice 
fast as the IBM PC. Next, you'll interface the high- 











resolution monitor and begin to use the valuable software supply—to ensure that you have Teh pilot eyslere tctog nee 
also included with your complete computer system. all the essential skills you need eran a ae 
It all adds up to confidence-building, real-world to succeed as a professional instructions on audiotape = Bin oo 
experience that includes training in programming, circuit. computer service technician. Brets «Tho newest Sanyo 680 Sores 
Computer with “intelligent” key 


design, and peripheral maintenance. You'll be learning No Experience Needed 360K doublo-density, double-sid deb 
wo 


about, working with, servicing, and troubleshooting an dive « High resouton manoct RAMs Burdlod 








entire computer system—monitor, keyboard, computer, NRI Builds It In sokware naticiog GW BASIC MS-DOS). 
disk drive, power ‘This is the kind of practical, schematics, andbitesize lessons, 


hands-on experience that makes you uniquely prepared, with 
the skills and confidence you need for success. You learn at your 
own convenience in your own home. No classroom pressures, 
no night school, no need to quit your present job until you're 
ready to make your move. Your training is backed by your 
personal NRI instructor and the NRI technical staff, ready to 
answer your questions and help you when you need it. You get 
it all with NRI at-home training. 


100:Page Free Catalog Tells More 

Send the postage-paid reply card today for NRI's big, 
100-page, color catalog on NRI's electronics training, which 
gives you all the facts about NRI courses in Microcomputer: 
Robotics, Data Communications, TV/Audio/ Video Servicir 
and other growing, high-tech career fields. If the reply card is 
missing, write to the address below. 


SEND COUPON TODAY FOR FREE NRI 
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McGraw-Hill Continuing Education Center check | 
3939 sin Avenue, NW, Washington, DC 20016 i 
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Dynamusic 


Trying to write music in BASIC can 
be a frustrating experience. There 
are many problems to solve, It is 
nearly impossible to turn the three 
voices on or off at the same time. 
Storing notes in DATA statements 
uses up too much memory. If you 
do manage to get the song to sound 
the way you want it to, you’ve ex- 
hausted a great deal of time and 
effort. 

“Dynamusic” is a solution to 
this problem. You can create com- 
pact music files that play in the back- 
ground of BASIC or machine 
language programs. All you need to 
do is start the music—the song will 
even play over and over if you 
choose, 

Dynamusic itself is broken up 
into two programs. The first, writ- 
ten in BASIC, is the “Dynamusic 
Translator.” This program lets you 
enter the notes, one at a time, into 
the computer. The second program, 
“Dynamusic Player,” is a machine 
language program that plays music 
constantly, even when you edit, 
LIST, or RUN other programs. It 
can be quite eerie to listen to music 
as you type in a program. 

Type in Program 1, Dynamusic 
Translator, and save it to disk. Then 
type in Program 2, Dynamusic 
Player. Since Program 2 is written 
entirely in machine language, you 
must enter it with “MLX,” the ma- 
chine language entry program lo- 
cated elsewhere in this issue. When 
you run MLX, you'll be asked for a 
starting address and an ending ad- 
dress for the data you'll be entering. 
For Program 2, respond with the 
following values: 

Starting address: 9E00 
Ending address: 9F97 
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This set of programs will help you create music that plays in 
the background while a program is running—music that 
sounds as good as the songs played in commercial games. For 
the Commodore 64. A disk drive is required. 


Before leaving MLX, be sure to save 
the program to disk. 

Two other programs have been 
included. Program 3, “Dynamusic 
Customizer” (a BASIC program), 
allows you to change the operating 
parameters of the SID chip to make 
the music sound exactly as you like. 
Type it in and save it to disk. 

Program 4 isn’t really a pro- 
gram; it’s a music file of the type cre- 
ated by Program 1. This short piece 
will show the potential of Dyna- 
music. The tune, “Elite Demo,” is 
adapted from the “Elite Syncopa- 
tions Rag” by Scott Joplin. You must 
enter the data from Program 4 with 
MLX. However, you must make a 
slight modification to MLX before 
you begin to enter this data. 

To conserve memory, Dyna- 
music stores its music data in the 
RAM under BASIC ROM. This area 
of memory is rarely used by BASIC 
programs, and by only a few other 
machine language programs. Be- 
cause of this, MLX was designed to 
reject starting or ending address 
values in this range. To persuade 
MLX to accept the data from Pro- 
gram 4, you must temporarily dis- 
able MLX’s address-checking 
feature. Replace the current line 
1040 of the MLX program with 
1040 GOSUB 1080:F =0:RETURN 


Remember, this is just a temporary 
patch to enter Program 4; it is not a 
correction to MLX. 

Once you have changed the 
MLX program, run it and enter the 
following address values when 
prompted: 

Starting address: A000 
Ending address: A17F 


Then enter the data from Program 








4. Be sure to save a copy before exit- 
ing MLX. You'll learn later how to 
play this file and the song files that 
you create. 


Entering A Song 

Load Program 1, the Dynamusic 
Translator. List line 20. It reads 
LN=8000. The value of LN speci- 
fies the line number where your 
music will be stored in DATA state- 
ments. After you enter your song, 
you'll be able to see the data for 
your song by typing LIST 8000-. 

Type RUN and then sit down 
at the computer with your sheet 
music. Since the SID chip has three 
voices, all of which can produce a 
note at the same time, you must en- 
ter a note or rest for all three voices. 
If you want only one voice to play, 
you must enter a rest for the other 
two voices. As an example of how 
to enter music, let’s enter a C-major 
chord made up of three half notes. 
First, give the octave for the first 
note: 4 (the fourth octave of C ona 
piano is middle C), Then, give the 
first note: C. Then the duration: 2, 
for a half note. Press RETURN to 
enter the note, A DATA statement 
will be made and appended to your 
program, 

Enter the next two notes, an E 
and a G, both in octave 4, both half 
notes. Sharps and flats can be speci- 
fied when entering the note value 
by adding an S or F, respectively, 
For example, enter AS for A-sharp, 
BF for B-flat. 

Rests can be entered by press- 
ing R. The duration of the rest must 
then be specified. 

It's possible to dot a note when 
you enter the time. Just put a period 
after the time value. For instance, 2. 
is a dotted half note. A dotted note 
in Dynamusic plays half again as 
long as a normal note. 

The D option on the timing 
screen allows you to handle unusu- 
al note timing. Duration values 








must be whole numbers. 

The review screen allows you 
to review your entry. If you decide 
the note is wrong, press E to erase 
the note and try again. By typing R 
here you can add a remark. I recom- 
mend that you mark the end of 
each measure to ease later editing. 

It's important to make sure that 
all three voices remain synchro- 
nized with each other. If one voice 
gets ahead of or behind the others, 
they will remain that way for the 
entirety of the song. 

If you become weary, press 
RUN/STOP and save Dynamusic 
Translator (with its new DATA state- 
ments) to disk with a different name. 
Later, to resume music entry, load 
the program and change LN in line 
20 to a value larger than the num- 
ber of the last current DATA line. 

When the music is complete, 
enter Q (for quit). Choose between 
cycle and end. Cycle forces the mu- 
sic to play over and over. End 
causes the song to play through 
only once. 

Next, you are asked to enter a 
number to determine the tempo 
(the rate of play) of the music. Each 
note duration is multiplied by this 
number, which may be a decimal 
value. The smaller the number, the 
faster the music will play. A value 
of 1 always works. Tempo values of 
0.5, 0.75, 1.25, and 1,5 work as long 
as you haven't specified any unusu- 
al durations with the D command. 


Storing Music Data 
Now decide where you would like 
to put the music data. Unless you 
specify another area, the data will 
begin at location 40960. On the 64, 
that is the beginning of a 12K area of 
free RAM. The first 8K of the area 
(locations 40960-49151) is hidden 
beneath BASIC RAM and isn’t nor- 
mally used. The last 4K (locations 
49152-53247) is heavily used for 
machine language programs. An- 
other 8K of memory is available be- 
ginning at location 57344. Do not 
attempt to store music data in the 4K 
block from 53248-57343. Any cho- 
sen starting location must be a multi- 
ple of 256 and not less than 2048. 
After Dynamusic Translator 
POKEs the music data into memo- 
ry, it asks whether you also want it 
saved to disk. If you do, answer Y 
and give a filename. It’s a good idea 
to also save a working copy of the 





entire Dynamic Translator pro- 
gram—including your song data. 
That way, you'll be able to change 
the DATA statements if the song 
doesn’t sound right. 


The First Performance 

If you've just entered your music, 
and it has been sucessfully POKEd 
into memory, load Dynamusic 
Player (Program 2) with a state- 
ment of the form 

LOAD“PLAYER",8,1 

If you want to listen to music in a 
file which has been saved—for ex- 
ample, Elite Demo (Program 4) or a 
song you created—first load your 
song with a statement of the form 
LOAD “SONG”,8,1 


Then load and run Program 2. 

Type NEW. If your music data 
does not begin at location 40960 
(the default address), Dynamusic 
Player must be informed of the 
change. POKE the value of the new 
starting address divided by 256 into 
location 40780. 

If you're going to run a BASIC 
program, you should protect Dyna- 
music Player from BASIC. Do this 
by starting and stopping the music 
before loading the BASIC program, 
or by typing 
POKE 56,158:CLR 


(You can also include this as the 
first line of the BASIC program you 
want to run.) You may now load 
your program. 

To start the music, execute the 
statement SYS 40448 either within 
your program or from direct mode. 
To stop it, execute the statement 
POKE 40448,0. Be sure not to re- 
start the music when it’s already 
playing, and don’t try to turn it off 
when it’s already off. Also, do not 
play music during disk access. (If 
your program accesses the disk 
drive, turn off the music before disk 
access. You can restart it after all 
disk operations are completed.) 


Customizing The Sound 

When the music starts (and every 
time it repeats), the registers of the 
SID chip are filled with values from 
a group of shadow registers at loca- 
tions 40809-40833. Each SID regis- 
ter has a shadow in this range. For 
example, the voice 2 attack/decay 
register is located at address 54284, 
the 12 locations beyond the address 





of the first SID register. Thus, the 
shadow voice 2 attack/decay regis- 
ter is located at address 40809 plus 
12 (40821). 

By changing the values in 
these locations, you can change the 
way your songs sound, (You'll need 
a reference book which explains the 
SID chip. Also, if you are new to 
programming music, see “Explor- 
ing the SID Chip” elsewhere in this 
issue.) Just POKE values into the 
shadow registers as your music 
plays. The next time the song re- 
peats, you'll hear the effects of your 
changes. When you're satisfied with 
the sound, you can save the altered 
Dynamusic Player. This modified 
version of the program will play all 
songs with your new parameters. 
When you're ready to save Dyna- 
music Player, stop the music, load 
and run Dynamusic Customizer. 
When the program asks for a file- 
name, type in the name that you 
would like to use for the custom- 
ized version of Dynamusic Player. 


Selective Deletion 
The SID chip cannot play more than 
three notes at once. If the music calls 
for more than three notes, you must 
decide which note or notes to leave 
out. Notes exactly one octave up or 
down from another note are good 
candidates for deletion, 
Dynamusic can be tuned 
(changed in pitch) like a musical in- 
strument. Line 400 of Dynamusic 
Translator (Program 1) contains an 
expression that controls the tuning 
of the music. The first value in the 
expression determines the frequen- 
cy (in cycles per second, or hertz) of 
the base note of the tuning scale. 
The current value, 440 hertz, is a 
natural A. If you change the 440 to 
another value, all other notes in the 
scale will be altered correspondingly 
to remain in tune with each other. 
It is possible to change tunes 
while Program 2 is playing. Your 
program can POKE a new value 
into the music pointer address, lo- 
cation 40780. The next time the 
music starts or is cycled, a different 
song will play. The number to 
POKE into this location is the start- 
ing address of the song data divided 
by 256. 
See program listings on page 90. @ 
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Commodore Relative Files: 
Defensive Programming 


free relative files. 


The idea behind a relative file is 
this: If you want to see or change 
record number 12, you go straight 
to that record—no need to plow 
through records 1-11, as you'd 
need to do with a sequential (SEQ) 
data file. Another advantage is that 
you don’t have to make a new copy 
of the file when you want to change 
a record; the change is made by re- 
placing the old data with the new. 

How does this work internally? 
First of all, each record in the file 
has a fixed amount of space allocat- 
ed. That way, when you change 
information in a record, the records 
that follow don’t need to be moved. 
All the space that is allotted doesn’t 
need to be filled. For example, you 
could allocate 120 characters per 
record, but some or all of the rec- 
ords might be smaller than that. 
The remaining unused space is 
padded with 0's. 

The second part of the trick in- 
volves the use of an index. Whenever 
you specify a record you wish to ac- 
cess, the drive does some arithmetic 
and then checks the index (called a 
side sector) to see where on the disk 
your information is stored. (You 
don’t need to know about the arith- 
metic; it’s moderately complex.) If 
you just call for record 15, for in- 
stance, the disk drive calculates that 
for a 100-character record size it 
needs to fetch the sixth block from 
the file. It looks up the address 
(track and sector) of the sixth block 
in the side sector index, and then 
reads the appropriate block from 
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Relative files are a good way to store data for fast access. But 
many programmers have trouble using them. Here's how to 
write defensive programs which are likely to give you trouble- 


disk. When the block has been read, 
the same arithmetic tells the drive to 
look at position 130 in that block for 
the start of the desired record. 
Again, you don’t need to know how 
the drive does it. Just supply the rec- 
ord number and let it work. 

There are inherent disadvan- 
tages in this scheme. Relative files 
are larger, slower, and more diffi- 
cult to handle than sequential files. 
They are beset by pitfalls—things 
that can go wrong if you don’t han- 
dle your coding exactly right. If you 
need to use relative files, this article 
will help steer you clear of the dan- 
ger spots. 


SEQ vs. REL 
Consider the sequential (SEQ) data 
file. It is much simpler than a rela- 
tive file, and can do most jobs at 
least as well. An old data process- 
ing axiom says: If a session calls for 
more than 15 percent of a file to be 
referenced, use a sequential file; if 
less, use a relative file. The point is 
that if you need to access only a 
small fraction of the file, why wade 
through the whole thing? In this 
case, a relative file will let you use 
only the parts you want. A sequen- 
tial file, in contrast, needs to be read 
from start to finish, and an update 
requires that a new copy of the file 
be made. 

There are other considerations. 
Ifa sequential file is very large (more 
than half the disk capacity), you 
don’t have room to make a copy on 
the same disk. A relative file, which 





can be changed “in place,” has a 
definite advantage here. 

Here's one disadvantage of rel- 
ative files that you should consider 
very carefully before deciding to 
use them fora particular task: If you 
change the contents of a record on a 
relative file, the old information is 
irrecoverably lost. A mistake at the 
keyboard could lose important 
information permanently, With se- 
quential files, you update by copy- 
ing everything over to a new file, 
The old file can be retained, allow- 
ing you to go back to earlier data 
and retrieve lost information, 


Guidelines 

The following guidelines are safety 
rules, You can sometimes get away 
with breaking them. Yet few of us 
like to take a chance of data being 
lost, so you might want to follow 
them religiously. 

The demonstration program 
given below is intended to show 
many of the rules given in these 
guidelines. The program is written 
to run on any eight-bit Commodore 
computer. 


Rule 1: Create enough records. 
When you first create a file, be sure 
to create enough records so that 
more than one block (254 charac- 
ters) is used. For example, the dem- 
onstration program uses a record 
length of 33, and thus must create 8 
or more records (254 / 33). In this 
case I created 10 (see line 140). It’s a 
good idea to create a relative file 
with a special program. After a file 
has been been created, all following 
activity is updating. The demo pro- 
gram tests to see if the file exists, 
and if not, it creates it (the test is 
lines 40-70; the file creation is per- 
formed in lines 100-200). Note that 








the program insists that the only ac- 
ceptable error is number 62, File 
Not Found. Anything else is a 
“real” error and the program stops. 
Rule 2: Always set the file pointer 
to the first byte of the record. Al- 
ways position the pointer to the first 
character in the record, The last pa- 
rameter in the P command should 
be CHR$(1). See lines 140, 330, and 
480 of the demonstration program. 
Read or write the whole record each 
time to stay out of trouble. 

Rule 3; Check the drive status, Al- 
ways read the status from the disk 
drive after every positioning com- 
mand, Even if you don’t care what 
the drive status message says, read- 
ing the status information insures 
that the drive has had enough time 
to locate the position to the new 
record, 

Lines 150, 340, and 490 of the 
demo program do this. It’s interest- 
ing to observe that some errors are 
quite acceptable. For example, line 
150 insists on seeing error 50; at 
that point the program is creating a 
file and knows that the record it has 
just called up does not exist. When 
status is checked at line 340, a No 
Record error tells the program that 
there are no more records to be 
read. And at line 490, the same er- 
ror simply advises the program that 
the next record it writes will be a 
new one, 

The important thing to remem- 
ber is that reading the drive status 
after positioning is not just to check 
errors—it's for pacing the program 
so that data will not be rushed be- 
tween computer and disk drive 
before the drive is ready. 

Rule 4; Add 96 to the secondary 
address. It doesn’t hurt to add 96 to 
the secondary address value in the 
P command. Note that the demon- 
stration program opens the relative 
file with a secondary address value 
of 2 (line 50). But in the position 
commands on lines 140, 330, and 
480, the value 96 has been added in 
to make 98. 

Rule 5: Use one PRINT# per rec- 
ord. When you're writing to a file, 
use one PRINT# to write one rec- 
ord; no more, no less. You should 
write all the fields of the record in 
one shot. (If you use the less reli- 
able practice of positioning within 
the record, you can write part of a 
record—but it’s preferable not to). 








Note lines 530-610. Even 
though we have several data fields 
within the record, they are concate- 
nated (stuck together) in line 580. 
The various fields are separated by 
RETURN characters, but no RE- 
TURN is needed at the end of the 
record (line 600 trims off the last 
RETURN, and line 610 prints the 
record without adding a RETURN). 


If multiple fields within a rec- 
ord interest you, examine lines 
370-420, where the system status 
variable ST is used to detect wheth- 
er there are more fields to follow 
within a record. 


Large Leaps 

If you are reading or writing records 
in strict sequence (1, 2, 3, 4...), the 
above precautions should be suffi- 
cient. If you’re hopping around, 
here are two more rules: 


Rule 6: Position twice for input. If 
your program is reading records out 
of order, give the position (P) com- 
mand twice. Get the drive status 
message each time. 

Here's the problem that neces- 
sitates this strange procedure: To 
position to a new record, the disk 
drive may need to bring in new 
blocks. First, it must check the side 
sector index for the new block de- 
sired. If the new record is far away, 
it may need to read in a new side 
sector. Finally, it must bring in two 
data blocks before it’s ready to sup- 
ply data to you. That can take quite 
a while, and a second positioning 
can give the drive a chance to catch 
its breath. 

The demonstration program 

does not do double positioning. It 
doesn’t need to, since it reads the 
records in sequence. 
Rule 7: Close and reopen for out- 
put. If your program is writing rec- 
ords out of order, the safest thing to 
do is to close the file after each 
write. You may then immediately 
reopen it (after reading the drive 
status). It may cost over a second in 
running time to close and reopen 
the file, but this procedure offers in- 
creased insurance against corrupt- 
ing data on the disk. 

When writing records, the 
drive has a huge amount of work to 
do. The drive doesn’t write to disk 
at the time you give the PRINT# 
command; rather, it waits until a 
position command tells it to move 





somewhere else. The drive must 
then safely store all the changes it 
has made before it can read in the 
new data. This is a ticklish time— 
it's possible that the computer may 
try to pour in more information 
before the drive is ready for it. 

The safest procedure is to close 
and reopen the file, and that’s what 
our example program does in lines 
640-670. This is probably overkill 
under these circumstances, since 
the drive will have a lot of time to 
do its work while the user is typing 
in the next record. But when it’s 
your data—safety first. 


Other Relative File Anomalies 
Commodore data files shouldn't 
normally contain characters with 
ASCII codes 0 or 255. If you try to 
include these two characters in 4 
record, you'll probably cause 
problems. 

Character 0 is used pad out the 
unused part of each record. If you 
write this character to a relative file, 
the drive will not know where the 
record ends, or which part is full. So 
don’t write CHR$(0). 

Character 255 is used by the 
operating system to indicate an 
empty record—one with no data. 
Our demonstration program used it 
to write an empty record during file 
generation (line 170), and later de- 
tected this value to report an empty 
record (line 380). If you want to use 
this character, be careful. 

You can’t generate a relative 
file with record lengths of 42, 58, or 
63 characters. It’s just an oddity of 
the disk operating system that these 
values are forbidden. 

The 1571 is one of Commo- 
dore’s most recent disk drives, de- 
signed especially to work with the 
Commodore 128. However, for the 
standard double-sided 128 format, 
the operating system code to con- 
trol reading and writing on side 2 is 
currently bug-ridden and almost 
useless. Commodore will be releas- 
ing a new 1571 ROM to correct the 
problems; it should be available by 
the time you read this. Until that 
happens, it’s wise to leave two- 
sided disks half-empty when using 
relative files. 

Relative files demand extra 
care. But if you know the rules on 
how to code defensively, you can 
make them behave as they should. 
See program listing on page 78. @ 
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Last month we wrote a state capi- 
tals drill program which illustrated 
some of the BASIC commands 
we've learned. However, because 
we used only the BASIC commands 
we've covered so far in this column, 
the program wasn’t very elegant. 
This month we'll delve into two ex- 
tremely useful statements—READ 
and DATA—which will ultimately 
allow us to modify and greatly 
shorten the program, depending on 
how many drill questions we want 
to ask, In the process, we'll add just 
the touch of elegance we need and, 
as a bonus, make the program easi- 
er to understand. 

Before we modify the program, 
let’s go over a few basics, If you un- 
derstand these examples without 
entering and running them, that’s 
fine. But if you don’t understand a 
certain example, it would be a good 
idea to type it in, run it, and observe 
the results, 


Reading Strings 
READ and DATA work together; if 
you use the READ command, there 
must be some DATA to read. Their 
purpose is best illustrated by study- 
ing a simple case which uses a 
string variable: 
10 READ A$ 
20 DATA RALEIGH 
30 PRINT AS 
If you run this, READ in line 10 
causes the computer to look for a 
DATA line. It finds the data at line 
20—the word Raleigh—and line 30 
prints it out. We could have accom- 
plished the same results with the 
following: 
10 A$=“RALEIGH” 
20 PRINT AS 

So why use READ and DATA? 
This simple case, for demonstration 
purposes only, shows how READ 
and DATA work; in actual practice 
these commands are used when 
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many pieces of data are to be read. 


Reading Numbers 

READ also works with numeric 
variables: 

10 READ A 

20 DATA 1000 

30 PRINT A 

This time, the variable A is assigned 
the first (and in this case only) 
DATA element, 1000; line 30 prints 
it on the screen. 


Reading More Than One 
Piece of Data 

Now let's illustrate how to read 
more than one piece of data with 
the same command: 

10 READ AS, BS 

20 DATA RALEIGH, RICHMOND 

30 PRINT AS 

40 PRINT BS 

Line 10 READs both pieces of data 
before going to line 30. Punctuation 
is very important when entering 
these statements. Note that the 
variables A$ and B$—and the data 
that will be assigned to them—are 
separated by commas. A frequent 
error is to put a comma after the 
word DATA—don’t do it. Also be 
sure not to put an extra comma after 
the last data element. And check 
that your commas really aren’t peri- 
ods. Because the period and comma 
keys are side by side on the key- 
board, it’s easy to mistakenly type 
one for the other. 

It’s very important that you 
have enough data to be read. Look 
at this: 

10 READ AS, BS, C$ 
20 DATA RALEIGH, RICHMOND. 

If you run this, you get one of 
BASIC’s error messages—?O0UT OF 
DATA ERROR IN LINE 10. The 
READ statement in line 10 tries to 
read three pieces of data but finds 
only two. Note that the line men- 
tioned in the error message is the 
line that’s reading the data, not the 
DATA line itself. 





READ And DATA—Two Of A Kind 


Using FOR-NEXT With READ 
And DATA 

Often, a FOR-NEXT loop is used to 
read data: 

10 FOR T=1 TO 5: READ X 

20 PRINT X 

30 NEXT 

40 DATA 5, 10, 15, 20, 25 

Now you can begin to appreciate 
the value of READ and DATA. The 
alternative to this would have been 
to make X = 5, then 10, and so on 
to 20, printing out each value. Be 
sure you have as many pieces of 
data as the number of times the 
FOR-NEXT loop increments. 

One of the more common uses 
for reading data is to put values into 
certain memory locations, or regis- 
ters, in the computer that aren’t 
normally found there. The BASIC 
command POKE is used to do that: 
10 FOR L=49152 TO 49157 
20 READ D 
30 POKE L, D 
40 NEXT L 
50 DATA 169, 1, 141, 32, 208, 96 
(Type this in only if you have a 
Commodore 64.) This little pro- 
gram demonstrates a very common 
technique for installing machine 
language programs in the com- 
puter. (Machine language programs 
run much faster than BASIC ones 
do; computer games, which usually 
need speed for good playability, are 
often written in machine language.) 

Before this program is run, the 
memory locations could contain 
numbers in the range of 0-255, 
After it’s run, the memory locations 
would be loaded with specific nu- 
meric data as shown here: 


Location (L) DATA (D) 
49152 169 

49153 1 

49154 141 

49155 32 

49156 208 

49157 96 


The FOR-NEXT loop will in- 
crement six times; six memory loca- 
tions will be affected. Again, 








always make sure the number of 
data elements corresponds to the 
number of times the FOR-NEXT 
loop is to be executed. 


Mixing Numeric And 

String Data 

Numeric and string data can be 
mixed: 

10 READ S, S$ 

20 DATA 4, LISA 

30 PRINT “NUMBER";S;1S ;S$. 

Data is read in the order in which 
it’s requested, If a numeric variable 
is requested (READ S), a number 
must be the next piece of data to be 
read. Change line 20 to see what 
happens if they’re switched: 

20 DATA LISA, 4 


Now, instead of an OUT OF DATA 
message, we get a SYNTAX ERROR 
message. Line 10 is expecting a 
number (S) as its first piece of data, 
but instead it gets a string. Note that 
the line referred to in the SYNTAX 
ERROR message is the DATA line. 
The line referred to in an OUT OF 
DATA message is the READ line. 


Using GOTO With READ 
And DATA 
GOTO is often used with READ 
and DATA. Later you'll see that this 
is the key to the rewrite of the state 
capitals drill program: 
10 READ N$ 
20 PRINT NS 
30 GOTO 10 
40 DATA DAVID, MICHAEL, VICTOR, 
JIM 

Lines 10 and 20 READ and 
PRINT the data. Line 30 sends con- 
trol back to line 10, which, each 
time executed, READs a new piece 
of data. If you typed this one in and 
ran it, you saw the OUT OF DATA 
message after all the names were 
printed—there was nothing to limit 
how many times the computer exe- 
cuted GOTO 10. 


Here's one way to eliminate 
the OUT OF DATA message when 
GOTO is used: 

10 READ NS: IF N$=“QUIT” THEN 
END 

20 PRINT NS 

30 GOTO 10 

40 DATA DAVID, MICHAEL, VICTOR, 
JIM, QUIT 

It would be a good idea to type this 

one in and run it. The computer 

READs (in line 10) the first name 

from DATA line 40 (DAVID) and 





prints it in line 20. Line 30 sends 
control back to line 10 for another 
read (MICHAEL) and so on until all 
four names are read and printed. 
The last time through line 10, the 
word QUIT is read as N$, the IF- 
THEN condition is satisfied, and 
the program ends. The word QUIT 
isn’t printed. 

For numbers, you can use a 
value not normally used by the pro- 
gram to stop the reading process: 
10 READ N: IF N= —1 THEN END 
20 PRINT N 
30 GOTO 10 
40 DATA 5, 10, 15, 20, 15, —1 


Modifying The Drill Program 
Now we've covered enough of the 
basics of READ and DATA to see 
how to modify last month’s state 
capitals drill program. If you saved 
acopy of last month’s program, just 
load it, type LIST, and change lines 
140 and 150 as shown below. (If 
not, a complete listing appears at 
the end of this article.) 
140 READ AS, S$: IF A$= “QUIT” 
THEN 5000 
150 FOR I=1 TO 3: PRINT QS;S$;"?” 
Line 140 now expects to find two 
pieces of string data—A$ (the an- 
swer) and S$ (the state name). 
When it reads the word QUIT, con- 
trol is sent to line 5000, the pro- 
gram-ending routine. 

Line 150 is what will make our 
new program much more efficient 
(and elegant). Compare last 
month’s program to this one and 
you'll see why. 

Every time we asked a ques- 
tion we had to repeat a certain rou- 
tine and each state’s name, which 
used five lines, Now we simply use 
S$, which is read as the second 
piece of data. 

As we saw in an example 
above, we send control back to 
READ more DATA by using the 
GOTO statement. Leave lines 
160-180 as they are and change 
line 190 to 
190 GOTO 140 


Now erase your old lines 200, 
210, 220 and 230 by typing those 
numbers and pressing RETURN. 
(You may recall that this is the way 
to erase BASIC program lines.) 
Leave the subroutines as they are in 
lines 1000-5000. 

The only thing left to do is to 
add the data for line 140 to read: 





500 DATA RALEIGH, NORTH 
CAROLINA, RICHMOND, 
VIRGINIA, QUIT, QUIT 


Why two QUITs? Remember 
that line 140 expects two pieces of 
string data. The second doesn’t 
have to be QUIT; this is just a com- 
mon programming technique. 

Notice now the real value of 
the READ and DATA statements: 
To expand the program to include 
more questions, instead of having 
to type five lines for each question 
and answer, one simply adds more 
data between what's there and the 
two QUITs. When line 500 be- 
comes full, do this: 


1. Remove the two QUITs, and 
the comma before them, at the end 
of line 500, 

2. Add more DATA lines—510, 
520, and so on, 

3, Put DATA as the first word 
on each line. 

4, Add the data, starting with 
the capital, then the state, and alter- 
nating between the two. Separate 
them with commas as in line 500. 


5. Put two QUITs as the last 
two items of data. 


Next month we'll see how and 
when to read data repeatedly, using 
the RESTORE statement. 


Modified Drill Program 


SC 106 PRINT" {CLR}" 

PK 11@ POKE53280,11:POKES3261, 
11: PRINT" (WHT) " 

GJ 120 PRINT: PRINT 

RH 130 Q$="WHAT IS THE CAPITAL 
OF " 

BC 140 READA$,S$:IFA$="QUIT"TH 
EN5000 

SX 150 FORI=1T03:PRINTOS; S$; "7? 


AM 168 GOSUB10008 

BX 170 IFC§<>A§$THENGOSUB3000:N 
EXT: GOSUB490 :GOTO190 

BQ 186 GOsUB2000 

JX 199 Goro149 

XM 508 DATARALEIGH, NORTH CAROL 
INA, RICHMOND , VIRGINIA, Q 
UIT, QUIT 

AS 1600 C§m""s INPUTC$1IFCS=""T 
HEN5000 

DS 1018 RETURN 

KA 2600 C=C+1:PRINT" (DOWN) VERY 

GOOD!" :FORT=1T01000:N 

EXT: PRINT" {CLR} 
{3 DOWN)": RETURN 

BS 3600 PRINT" {DOWN]SORRY, THA 
T'S NOT CORRECT." :FORT 
=1T01000 :NEXT: PRINT" 
{CLR} (3 DOWN) ":RETURN 


XP 4060 PRINT" THE ANSWER IS "A 


5 


XA 4016 PRINT: PRINT"PRESS THE 
{SPACE}SPAC RAR TO GO 


JE 4026 GETS$:IFS$<>" “THENGO2 
0 


SM 4030 PRINT"(CLR}(3 DOWN)":R 
ETURN 





BQ 5800 PRINTC"CORRECT.":END @ 
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When you start learning machine 
language (ML), the first thing you 
need is an assembler program. An 
assembler is to ML what the BASIC 
language is to programming in 
BASIC: It translates your com- 
mands into actions the computer 
can understand and perform when 
a program is run, Many assemblers 
are available commercially; some 
are included in books on ML; and 
some have been published in GA- 
ZETTE and COMPUTE}. 

There are a variety of features 
to look for when deciding which as- 
sembler to use, but one of the most 
important is its complement of 
pseudo-ops, add-ons to the assem- 
bler which make life easier for the 
programmer, Pseudo-ops are the 
equivalent of options sold with 
automobiles, and, as you might ex- 
pect, some such options are more 
accurately described as necessities 
than luxuries, 





An “op,” short for opcode (which it- 
self is short for operation code), is a 
number that describes an action for 
the microprocessor to carry out. For 
example, 96 tells the chip to return 
from a subroutine. An assembler’s 
primary job is to translate the set of 
abbreviations programmers use into 
these opcodes, So, when you pro- 
gram in ML and use the command 
RTS (for ReTurn from Subroutine), 
the assembler reads this and stores it 
in the computer as 96, 

In other words, the assembler 
takes your list of commands and 
translates them into a list of num- 
bers, These numbers are the execut- 
able ML program. After the 
assembler has stored the numbers, 
you can SYS to them, and your ML 
program will run. 

A pseudo-op, by contrast, is 
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not part of the official list of ML 
abbreviations, Instead, it comes as 
an addition to an assembler and 
does something to make your pro- 
gramming easier or faster in the 
same way that LIST comes with 
BASIC. One of the most valuable 
pseudo-ops is the BYTE command 
(sometimes called ASC; the names 
of pseudo-ops vary from assembler 
to assembler), BYTE allows you to 
enter a table of numbers directly 
into RAM. These numbers are data, 
not program opcodes. They might 
be the parameters you want POKEd 
into the SID chip registers or a list 
of calories for various foods, what- 
ever. When programming, you sim- 
ply type BYTE, and the assembler 
knows that this isn’t one of the nor- 
mal opcode abbreviations—so it 
handles the information in a special 
way: 

BYTE 112,27,88 


These numbers will be stored in 
RAM exactly as you typed them. If 
this were a list of calories, you could 
create a parallel list of foods by 
using the BYTE pseudo-op: 

BYTE “TWINKIE,GUMDROP,DONUT 


where the BYTE pseudo-op tells the 
assembler to translate these charac- 
ters into their proper screen codes. 
(Add a search routine and a few 
hundred more foods and you've got 
an ML calorie counter program.) 
BYTE, then, is a simple way to cre- 
ate tables, lists, and arrays of data in 
ML. You don’t want to know how 
cumbersome this can be without 
that pseudo-op. 

Another useful collection of re- 
lated pseudo-ops gives you control 
over the destination of your pro- 
gram. D or DISK (or a variation 
thereof) entered into your program 
sends the resulting executable ML 
program to the disk drive instead of 
directly into RAM. This is valuable 
when you want your ML to reside 
in memory where the assembler or 





Extra Assistance 


other programming utilities are lo- 
cated, It helps you avoid overwrit- 
ing the resident programs. P or 
PRINTER sends the results to the 
printer for a hardcopy listing, and S 
or SCREEN lists there. 

The = pseudo-op is essential. 
It allows you to assign values to 
labels and then use the labels 
throughout your program, It’s quite 
similar to using variables in BASIC: 
SCREEN = 1024 


can then be used in such situations 
as: 

STA SCREEN (to put whatever is in the 
Accumulator into screen memory) 

STA SCREEN +512 (using +, the macro 
for automatic addition) 

Among the benefits of such la- 
bels is that you can more easily read 
your program listing or utilize glob- 
al access via search or replace. 


Macros 

One facility provided by some as- 
semblers is macros, subroutines you 
can import into your program from 
disk. For example, if you frequently 
need to check for keyboard input, 
you could write a general purpose 
routine which PEEKs the keyboard 
for activity and save it as a macro. 
Then, when writing an ML pro- 
gram which needs to accomplish 
this, you could have the assembler 
insert this macro instead of typing 
each instruction by hand. 

Macros have two weaknesses, 
though, First, it’s often simply easi- 
er to use a subroutine instead, rath- 
er than inserting a routine 
repetitively throughout your pro- 
gram. Second, you have to spend 
some time passing parameters to 
macros, which means you have to 
remember what parameters, in 
which order, and then write them 
in, It's often better just to write the 
routine directly. @ 





Todd Heimarck 
Assistant Editor 


Every once in a while, you run 
across a trick that’s not an enor- 
mously useful programming tool 
but is still worth remembering. 
Here are a few such tricks, which 
are valuable primarily because they 
save you some time. 


Loading And Saving 

Running a BASIC program is a two- 
step process: First you load it into 
memory, then you type RUN. But 
on the 64, you can load and run a 
disk-based program by typing 
LOAD “‘filename’’,8: (don’t press 
RETURN), and then holding down 
the SHIFT key and pressing RUN/ 
STOP. Make sure you place a colon 
after the 8. On the 128, you can use 
RUN “filename” for BASIC, or 
BOOT “filename” for machine lan- 
guage programs. 

When a directory is showing 
on the screen and you see the file 
you want to load, you can save a lit- 
tle typing by moving the cursor up 
to the line that lists the file. Type 
LOAD on top of the number of 
blocks, move the cursor just past 
the closing quotation mark, add ,8: 
(again, the colon is important), and 
press RETURN. On the 128, you 
can replace the LOAD with D 
SHIFT-L (the abbreviation for 
DLOAD) or RUN. Press TAB a cou- 
ple of times to get past the last quo- 
tation mark, then ESC-Q or ESC- 
@, and then RETURN. 

If you put a line like 10 REM 
SAVE" ‘00filename’’,8 at the begin- 
ning of a program, you can list line 
10, cursor to the version number (to 
change it to 01, 02, 03, and so on) 
and press RETURN. To save the 
program, put the cursor on the line 
number and press the space bar to 
erase the 10 and the REM. Then just 
tap RETURN. When developing 
large, important programs, I usually 
alternate disks, putting the odd- 





hOrzons 





numbered versions on one disk and 
the even-numbered versions on the 
other. When the disk begins to fill 
up, erase the old versions with the 
question mark wildcard: OPEN 
15,8,15, “SO:??filename”: CLOSE 15. 


Shortcuts 

At times, you'll discover that 
you've put too many commands on 
one line, and, when you want to 
add a few things to the middle of 
the line, the insert key won't allow 
you to go beyond the 64’s 80-char- 
acter limit. Rather than retyping the 
second part of the line, you can split 
it up by listing it twice. Change the 
line number of the second line— 
from 580 to 582, for example. Now 
you have two lines that are exactly 
the same. On the first one (line 
580), use the space bar to erase the 
second part of the line. On the sec- 
ond line (582), move to the middle 
of the line and delete backwards. 

A quick way to escape quote 
mode or insert mode is to press 
SHIFT-RETURN. This also useful if 
you change your mind after chang- 
ing a line. The normal RETURN 
key causes a direct-mode command 
to execute or, if the line starts with a 
number, it adds the line to the pro- 
gram in memory. SHIFT-RETURN 
doesn’t do either; it just puts the 
cursor on the beginning of the next 
line and turns off reverse mode, 
quote mode, and insert mode. 

If you use a utility like ‘“Meta- 
BASIC” that lets you define the 
function keys, or if you have a 128, 
it’s handy to define the function 
keys to list portions of your pro- 
gram. Change the definition for the 
fl key to LIST-199, the definition 
for £3 to LIST200-399, and so on. 
(Since MetaBASIC limits key defi- 
nition strings to ten characters, you 
may have to abbreviate LIST to L 
SHIFT-I.) You can then press the 
appropriate function key to see a 
specific part of the program. 

To send output to a printer, you 








Tricks Worth Remembering 


first open a channel with a line such 
as OPEN 1,4 or OPEN 1,4,7. Don’t 
use CMD to divert PRINT state- 
ments to the open channel; CMD 
can be canceled (if the program does 
a GET, for example). Instead, use 
PRINT#. When you're developing a 
program that writes to the printer, 
you can save paper during testing by 
changing the OPEN to route output 
to device 3—OPEN 1,3, for ex- 
ample. Device 3 is the screen, so any 
further PRINT#1 statements would 
send lines to the screen instead of 
the printer. When the program is 
fully debugged and running, you 
can change the device number in the 
OPEN statement back to a 4. 


Debugging 
In programs that contain many 
DATA statements, it’s common to 
make a typing error here and there. 
It’s not much fun to proofread a list 
of numbers, so here are some sug- 
gestions for pinpointing typing 
mistakes, First, if you get an ILLE- 
GAL QUANTITY error in the line 
that contains a READ followed by a 
POKE, the problem is most likely a 
number in DATA that's larger than 
255 or smaller than 0. When this 
happens, PRINT PEEK(63) + 
PEEK(64)*256 will usually tell you 
which line of DATA contains the 
item that’s out of range for POKE- 
ing. The equivalent memory loca- 
tions on the 128 are 65 and 66. 

Another problem is acci- 
dentally separating two numbers 
with a period instead of a comma. 
To find an errant period, use this 
two-line program (substitute mem- 
ory locations 65 and 66 in line 2 on 
the 128): 
1 READ A: IF A=INT(A) THEN 1 
2 PRINT “CHECK LINE”; PEEK(63) + 

PEEK(64)*256: END 

If there aren’t any periods, line 
1 will eventually run out of DATA 
to read. If you did accidentally type 
a period, line 2 will tell you which 
line to check. @ 
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RAM Usage On The 
Commodore 128 


programmers, 


The Commodore 128, as its name 
implies, has 128K of primary RAM 
in two 64K blocks. The computer's 
elaborate memory management sys- 
tem can mix RAM from one or both 
blocks together with ROM or I/O 
chip registers to create the configu- 
rations known as banks. In general 
the 128 sees RAM from block 0 in 
even-numbered banks (0, 4, 8, 14) 
and RAM from block 1 in odd- 
numbered banks (1,5, 9). A notable 
exception is bank 15, where RAM 
from block 0 is seen. Another sig- 
nificant exception is that in every 
bank the system normally sees 
RAM from block 0 in locations 2- 
1023/$0002-$03FF. (Locations 
0-1/$00-$01 are used for the pro- 
cessor’s on-chip I/O port and are 
never seen as RAM.) This means 
that the lowest 1K of RAM in block 
1 normally remains invisible and 
unused, The common 1K block and 
locations 1024-7167/$0400-$1BFF 
in block 0 have special uses. MMU 
registers, rather than RAM or ROM, 
are seen at addresses 65280-65284/ 
$FFO0-$FFO04 in every bank con- 
figuration. 

Two pointers in page 10/$0A 
indicate the range of locations in 
block 0 considered free RAM. Loca- 
tions 2565-2566/$0A05-$0A06 
point to the lowest free address, 
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Understanding and manipulating RAM on the Commodore 128 
can be tricky business. This excerpt from Mapping the Com- 
modore 128 (from COMPUTE! Books) offers a technical over- 
view of key RAM locations, and provides a wealth of useful 
information. Included are various tips and techniques for 128 


and locations 2567-2568/$0A06- 
$0A07 point to one byte beyond the 
highest free address. These pointers 
are initialized during the reset se- 
quence to 7168/$1C00 and 65280/ 
$FFOO, respectively. The pointer 
values can also be changed with the 
Kernal MEMTOP and MEMBOT 
routines. However—unlike earlier 
Commodore computers—the val- 
ues in these pointers have no effect 
on the range of addresses used by 
BASIC. 


BASIC RAM Usage 
For BASIC programming, the areas 
of RAM normally available for stor- 
age of programs and variables are 
locations 7168-65279/$1C00- 
$FEFF in block 0 and 1024-65279/ 
$0400-$FEFF in block 1. This is a 
total of 122,368 bytes of available 
RAM space (illustrated in Figure 1), 
This explains why part of the mes- 
sage you see when you turn on or 
reset the computer says 122365 
BYTES FREE. (The three missing 
bytes are to account for the zero 
byte required by BASIC before the 
first program line and the two zero 
bytes used to mark the end of the 
program.) 

Actually, it’s a bit misleading to 
claim that many free bytes, since 
you can’t write a BASIC program 





120,000 bytes long, The free RAM is 
divided into two distinct segments: 
58,112 bytes in block 0 for BASIC 
program text and 64,256 bytes in 
block 1 for variables and strings. 
(For comparison, the Commodore 
64 offers 38,911 bytes for program 
text and variables combined.) 

As noted in Figure 1, there is 
one additional factor which affects 
the amount of memory available 
for program text. When you use a 
GRAPHIC statement to set up a 
high-resolution screen, an addi- 
tional 9K is reserved in block 0; 1K 
at 7168-8191/$1C00-$1FFF for 
color information and 8K at 
8192-16383/$2000-$3FFF for the 
screen bitmap. In this case, the 
amount of RAM available for 
BASIC program text is reduced to 
48,896 bytes (locations 16384- 
65279/$4000-$FEFF in block 0). If 
a program is already in memory 
when the GRAPHIC statement is 
executed, program text will be 
moved upward in memory—the 
starting address will be changed 
from 7169/$1C01 to 16385/ 
$4001—and the program will be re- 
linked to work at the new address- 
es, Once a high-resolution memory 
area is established, it remains allo- 
cated until a GRAPHIC CLR state- 
ment is executed, at which time the 
program text is moved down to 
start at 7169/$1C01 again. 

Pointers in zero page and page 
18/$12 indicate the amount of 
RAM currently used for program 
text and variables. BASIC program 
text is assumed to begin at the ad- 
dress in block 0 specified in loca- 
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tions 45-46/$2D-$2E. That 
pointer is always initialized to 
7169/$1C01 during the BASIC cold 
start routine. Unlike the Commo- 
dore 64, which sets its start-of- 
BASIC pointer according to the 
value in the system’s start-of-free- 
memory pointer, the 128 sets the 
address value without regard for 
the value in locations 2565-2566/ 
$0A05-$0A06. Locations 4626- 
4627/$1212-$1213 point to one 
byte beyond the highest address in 
block 0 available for program text. 
That pointer is initialized during 
BASIC cold start to 65280/$FF00, 





again without regard to the value in 
the Kernal memory pointer at loca- 
tions 2567-2568/$0A07-$0A08. 
The actual ending address of 
the program text currently in mem- 
ory is specified by the value in loca- 
tions 4624-4625/$1210-$1211. 
That pointer is initialized during 
the BASIC CLR routine with an ad- 
dress value that is two bytes be- 
yond the starting address in 
locations 45-46/$2D-$2E. The 
pointer value is updated each time 
a BASIC program line is added or 
deleted. An OUT OF MEMORY er- 
ror occurs if the address in locations 





4624-4625 /$1210-$1211 reaches 
the value in locations 4626-4627/ 
$1212-$1213. The ending address 
pointer is set after a LOAD to the 
address of the last byte loaded, and 
the SAVE routine uses the values in 
the starting and ending address 
pointers as the starting and ending 
addresses for the block of memory 
to be saved. 

The address in the pointer at 
locations 47-48/$2F-$30 marks 
the start of scalar (nonarray) vari- 
ables in bank 1. The pointer is ini- 
tialized to 1024/$0400 during the 
BASIC cold start routine. A pointer 
at locations 49-50/$31-$32 marks 
the end of scalar variables and the 
beginning of arrays; another point- 
er at locations 51-52/$33-$34 
marks the end of arrays and the be- 
ginning of free memory in block 1, 
The latter two pointers are reset to 
the value in locations 47-48/$2F- 
$30 during the BASIC CLR routine. 

The free memory in block 1 is 
used to hold strings of all types— 
constants, variables, and arrays. A 
pointer at locations 57-58/$39- 
$3A holds an address which is one 
byte beyond the highest address of 
strings in block 1. It is initialized 
during BASIC cold start to point to 
65280/$FFOO. The string pool is 
filled from this address downward 
toward the bottom of free memory 
indicated in locations 51-52/ 
$33-$34. A pointer at locations 
53-54/$35-$36 marks the current 
address of the bottom of the string 
pool. That pointer is reset to the 
value in locations 57-58/$39-$3A 
during the BASIC CLR routine. An 
OUT OF MEMORY error occurs if 
the value in locations 53-54/ 
$35-$36 reaches the value in loca- 
tions 51-52/$33-$34. 


Reserving RAM 

There are occasions when you will 
want to divert an area of RAM from 
its normal usage. For example, you 
may need to set aside space for a 
machine language routine, an alter- 
nate screen display, or a data buff- 
er. For machine language (ML) 
programming, you can use any area 
of RAM if you are willing to learn 
the intricacies of the 128’s banking 
scheme. Otherwise, it’s best to re- 
strict your programming to certain 
known areas. For a machine lan- 
guage routine to be used in con- 
junction with a BASIC program, 
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you'll need to select an area which 
BASIC doesn’t normally use, or to 
take away some memory that oth- 
erwise would be used for program 
text or variable storage. 

Locations 4864-7167/$1300- 
$1BFF in block 0 are currently un- 
used (even though they are called 
“reserved” in some Commodore 
literature). This 2304-byte area is 
the largest segment of unused, pro- 
tected RAM in the 128, and it is be- 
coming extremely popular with 128 
ML programmers—much like the 
$C000 block in the Commodore 64, 
You can expect to see many ML 
programs using this area. 

Other, shorter blocks are also 
available if certain BASIC features 
are not used. If tape is not used, the 
256 bytes at 2816-3071/$0B00- 
$0BFF are available. However, 
unlike other free blocks, this page 
may be overwritten during a reset 
because disk boot sectors are read 
into this area. Thus, the time- 
honored Commodore tradition of 
using the cassette buffer for short 
ML routines is less suitable in the 
128. (It’s annoying to have to reload 
your routine after each reset.) 

If your program doesn’t use 
RS-232 communications, the two 
RS-232 buffers at 3072-3583/ 
$0C00-$0DFF provide a 512-byte 
workspace, This is probably the 
best area for short ML routines that 
you wish to use in conjunction with 
BASIC. (Unlike the cassette buffer, 
this area always survives reset in- 
tact.) If your program doesn’t use 
sprites, the 512-byte sprite defini- 
tion area at 3584-4095 /$0E00- 
$0FFF is also available. Of course, if 
your program uses neither tape nor 
RS-232 nor sprites, you can use the 
full 1280 bytes at 2816-4095/ 
$0B00-$0FFF, or any subsection 
thereof, 

To use a large ML program in 
conjunction with BASIC, there is an 
easy way to reserve over 11K of 
protected RAM. However, this 
technique works only if neither the 
BASIC nor ML program requires 
high-resolution graphics. The trick 
is to use the BASIC GRAPHIC 
statement to set aside a high-reso- 
lution screen area at 7168-16383/ 
$1C00-$3FFF. As mentioned 
above, this area remains allocated 
until a GRAPHIC CLR statement is 
executed. Simply begin your BASIC 
program with a line like GRAPHIC 
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1:GRAPHIC 0 (or GRAPHIC 
1:GRAPHIC 5 if you want to use 
the 80-column display). Then 
BLOAD or POKE the machine lan- 
guage program into the reserved 
area. In addition to the 9K screen 
area, you can also use the contigu- 
ous unused area just below, at 
4864-7167/$1300-$1BFF. If you 
want to use a machine language 
program in conjunction with 
BASIC and high-resolution graph- 
ics, you'll have to resort to bank- 
switching techniques if the 
program is too large to fit in the un- 
used area at 4864/$1300, 

It's possible to reserve space 
above or below either the BASIC or 
variable/string areas. To reserve 
space below BASIC program text, 
increase the value in the start-of- 
BASIC pointer at locations 45-46/ 
$2D-$2E by the number of bytes 
you want to reserve. (To reserve an 
even number of 256-byte pages, 
you need only change the value in 
location 46/$2E.) Two other steps 
are also necessary: BASIC requires 
a zero byte below the first location 
in its program text space, and a 
NEW operation is required to reset 
other important memory pointers. 
For example, to reserve three pages 
(768 bytes) below the normal start 
of BASIC, you would use a state- 
ment like this: 

POKE 46,31:POKE 31*256,0:NEW 


After this statement is executed, the 
area at 7168-7935 /$1C00-$1EFF 
is protected from BASIC until the 
next time the BASIC cold start rou- 
tine is performed (normally during 
the next reset sequence), The point- 
er value is unaffected by RUN/ 
STOP-RESTORE. This technique is 
less useful when a high-resolution 
screen area is allocated. In that case, 
the start of BASIC is moved to 
16384/$4000. The technique for re- 
serving space at the start of BASIC 
still works, but the reserved memo- 
ry will lie above 16383/$3FFF, 
which is the highest address seen as 
RAM in bank 15—the bank in 
which Kernal ROM is visible and to 
which BASIC defaults. Thus, an ML 
routine above that boundary will be 
invisible unless you tinker with the 
MMU configuration register. 
Space can be reserved at the 
top of the BASIC program area by 
reducing the value in the pointer at 
locations 4626-4627/$1212-$1213 








by the desired number of bytes. 
(Again, if you wish to reserve an 
even number of 256-byte pages, 
you can simply reduce the value in 
location 4627/$1213.) No addition- 
al steps are required other than 
changing the pointer value. This 
technique was often used in the 
Commodore 64 to reserve space for 
machine language routines; its use- 
fulness is more limited in the 128 
because of the 16384/$4000 
boundary of RAM visible in bank 
15, which was mentioned above. 
To easily use the reserved area for 
an ML routine in conjunction with 
BASIC, the top of memory must be 
lowered sufficiently to make at least 
a portion of the reserved area ap- 
pear below the boundary of RAM 
visible in bank 15; this dramatically 
reduces the amount of memory 
available for program text. It’s not 
even possible when a high-resolu- 
tion screen area is allocated. The 
technique can, however, be useful 
for setting aside an area in block 0 
for a buffer, a reserved area of 
memory for data storage. 

You can also reserve space in 
block 1, either above or below the 
variable/string area. To reserve 
space below variables, add a value 
corresponding to the number of 
bytes to be reserved to the address 
in the pointer at locations 47-48/ 
$2F-$30. (As with the other point- 
ers, you can simply increase the 
value in location 48/$30 if you are 
reserving an even number of 256- 
byte pages.) This step must be fol- 
lowed by a BASIC CLR statement 
to reset other variable pointers, so it 
should be performed early in the 
program (CLR erases all current 
variable values), The following line 
reserves an additional 1K at the bot- 
tom of variable space, locations 
1024-2047/$0400-$07FF in block 1: 


100 POKE 48,8:CLR 


Once established, the reserved area 
will remain intact until the next 
time the BASIC cold start routine is 
executed, normally at the next re- 
set. The setting is unaffected by 
RUN/STOP-RESTORE. 

Since this reserved RAM is in 
block 1, it can’t be used for ML rou- 
tines as easily as the RAM from 
block 0. There is no standard bank 
configuration that makes BASIC 
and Kernal ROM visible in conjunc- 
tion with block 1 RAM. Of course, it 








is possible to access Kernal or 
BASIC routines indirectly by using 
the JSRFAR or JMPFAR routines. 
One use for a reserved area in block 
1 would be for an alternate 40- 
column screen, 

To reserve space above strings, 
subtract a value corresponding to 
the number of bytes to be reserved 
from the address in the pointer at lo- 
cations 57-58/$39-$3A. (As with 
the other pointers, you can simply 
increase the value in location 58/ 
$3A if you are reserving an even 
number of 256-byte pages.) This 
step must also be followed by a 
BASIC CLR statement to reset other 
string pointers, so it should be per- 
formed early in the program (CLR 
erases all variable values). The fol- 
lowing line reserves 31K at the top 
of string space, locations 32768- 
65279/$8000-$FEFF in block 1: 


100 POKE 58,128:CLR 


Once established, the reserved area 
will remain intact until the next 
time the BASIC cold start routine is 
executed—normally at the next re- 
set. The setting is unaffected by 
RUN/STOP-RESTORE. As men- 
tioned above, this area can’t be easily 
used for machine language routines 
since it is in block 1. One appropri- 
ate use for a reserved area here 
would be for a data buffer—to hold 
downloaded text in a telecommuni- 
cations program, for example, 


Using ML Without BASIC 

You have several options when 
using ML programs alone, without 
BASIC, The simplest, if your pro- 
gram is less than 9K (9216 bytes) 
long, is to leave the system in its de- 
fault bank 15 configuration and use 
the visible area of block 0 RAM at 
7168-16383 /$1C00-$3FFF. (If you 
need a few more bytes, you can 
stretch the start of the program 
down to the bottom of the reserved 
area at 4864/$1300,) With this set- 
up, you have full access to the I/O 
chip registers and all the routines in 
BASIC and Kernal ROM. 

If you need more space, but 
still want access to Kernal routines, 
you can change the settings of bits 
1-3 of the MMU configuration reg- 
ister to switch out BASIC ROM. 
Storing a value of 14/$0E in the 
register at 65280/$FFOO will set up 
a configuration with block 0 RAM, 
I/O chip registers, and Kernal 


ROM. In this case, you'll have ac- 
cess to over 43K of contiguous free 
RAM, locations 4864-49151/ 
$1300-$BFFF. If you want to use a 
high-resolution screen in conjunc- 
tion with your ML routine, it’s easi- 
est to set up the screen in its normal 
location (7168-16383/$1C00- 
$3FFF), This means that if your pro- 
gram is too long to fit below the 
screen areas you'll need to switch 
out BASIC to have some RAM visi- 
ble with Kernal ROM. (You could 
still use the Kernal JSRFAR routine 
to access BASIC routines—if you 
wanted to use some of the graphics 
drawing routines, for example.) 

Although it is possible to set up 
a custom MMU configuration that 
makes block 1 RAM visible with 
either BASIC or Kernal ROM (or 
both), there’s rarely a need for such 
gyrations. It’s usually easiest to lo- 
cate your executable machine lan- 
guage in block 0 and use block 1 for 
data storage. 

Several obscure techniques are 
available to squeeze a few more 
bytes out of the 128, For example, 





you can gain access to the lowest 1K 
of block 1 RAM, which is normally 
covered by the common area from 
block 0, by changing the value in the 
MMU RAM configuration register 
(54534 /$D506). 


Page 255/$FF 
The highest page of memory, loca- 
tions 65280-65535 /$FFO0-$FFFF, 
in each RAM block is normally un- 
used by BASIC and contains a few 
bytes of free RAM as well as some 
important routines and vectors. The 
MMU configuration and load con- 
figuration registers always appear in 
the lowest five bytes of this area, lo- 
cations 65280-65284/$FF00- 
$FF04. They should never be dis- 
turbed unless you know the effect of 
the values you are storing there. 
You should also exercise care 
when changing the contents of loca- 
tions 65285-65348 /$FFO5-$FF44 
in either RAM block. These areas 
contain copies of the interrupt and 
reset handling routines. (These 
areas are initialized by the Kernal 
RESET routine.) If an interrupt or re- 
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set occurs while the system is con- 
figured for a bank where Kernal 
ROM is not visible—bank 0 or 1, for 
example—a crash will occur if the 
area in the visible RAM block does 
not contain a routine to redirect the 
reset or interrupt to a proper han- 
dling routine. 

The highest six addresses in 
each RAM block, locations 65530- 
65535 /$FFFA-$FFFF, contain 
copies of the processor reset and in- 
terrupt vectors. This area is initial- 
ized during the reset sequence, and, 
like the handling routines to which 
these vectors point, these vector ad- 
dresses should be changed with 
care, The system will crash if a RAM 
vector does not contain the address 
of a valid handling routine when an 
interrupt or reset occurs while that 
block is visible. 

Free space in this page includes 
the 181 bytes at locations 65349- 
65529/$FF45-$FFF9 in block 0 and 
the 176 bytes at 65349-65524/ 
$FF45-$FFF4 in block 1. However, 
locations 65488-65519/$FFDO- 
$FFEF in block 0 will be overwritten 
whenever the computer is reset, The 
Z80 microprocessor used by the 
128’s CP/M mode has control brief- 
ly after a reset or when the computer 
is first powered on. The initializa- 
tion steps performed by the Z80 in- 
clude copying two routines into 
block 0 RAM. One, at 65488- 
65503/$FFDO-$FFDF, is an 8502 
machine language routine to surren- 
der control to the Z80; the other, at 
65504-65519/$FFEO-$FFEF, is a 
Z80 machine language routine to 
surrender control to the 8502, These 
routines have no use in 128 mode— 
they can be used only in CP/M 
mode—but they are recopied to 
block 0 during each reset. (Actually, 
there is one situation where disturb- 
ing these routines can cause a prob- 
lem. If you overwrite the routine at 
65488/$FFDO and then attempt to 
start CP/M with a BASIC BOOT 
command, the system will crash. 
The machine language in the CP/M 
disk’s boot sector expects that rou- 
tine to be intact.) 

The free areas in this page are 
of somewhat limited usefulness for 
machine language subroutines be- 
cause it is not possible to load data 
into this area. The Kernal LOAD 
routine exits whenever the load ad- 
dress reaches or exceeds 65280/ 
$FFOO, so you will have to load any 
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code for this area into another area 
and then transfer it into the proper 
addresses. (On the other hand, 
there’s nothing in the SAVE routine 
to prevent saving the contents of 
this page.) 

Locations 65525-65529/ 
$FFF5-$FFF9 in block 1 have a spe- 
cial use. The first three bytes, loca- 
tions 65525-65527 /$FFF5-$FFF7, 
are an initialization signature; after 
the Kernal RESET routine has been 
performed at least once, these loca- 
tions will contain the character 
codes for the letters CBM. As long as 
the signature locations contain these 
codes, the initialization test subrou- 
tine will take an indirect jump to the 
address specified in locations 
65528-65529 /$FFF8-$FFF9, called 
the system vector or soft reset vec- 
tor. This vector normally points to 
57892/$E224 in Kernal ROM, a 
routine that does nothing more 
than reinitialize the signature and 
vector. You can change the vector 
to point to a routine of your own to 
add additional steps to the reset se- 
quence or to initiate an entirely new 
reset sequence. One restriction ap- 
plies: The routine you specify in the 
vector must be visible in the bank 
15 configuration, since that is how 
the system is set up when the jump 
through the vector is taken. 

When tapping into the RESET 
routine, you need to be aware of 
what has happened before the vec- 
tor jump is taken and what hasn't 
happened yet. Before entering the 
subroutine that takes the jump 
through the vector, the RESET rou- 
tine resets the stack pointer to the 
top of the stack, configures the sys- 
tem for bank 15, resets the other 
MMU registers to their default val- 
ues, and recopies the common rou- 
tines to locations 65285-65348/ 
$FFOS-$FF44, 674-763/$02A2- 
$02FB, and 1008-1020/$03F0- 
$03FC. However, the initialization 
routines IOINIT, RAMTAS, RE- 
STOR, and CINT are normally 
called after the return from the 
jump through this vector. If your 
routine ends with RTS to return to 
the normal reset sequence, you 
can’t use the vector diversion to 
change default indirect vector set- 
tings or to alter screen parameters. 
If you use the vector to substitute 
your own reset sequence, you'll 
need to call one or more of these 
subroutines to complete system ini- 





tialization. At least the IOINIT rou- 
tine or some equivalent 
initialization routine is necessary, 
since the reset signal generated by 
pressing the reset button also resets 
the VIC and VDC (80-column) vid- 
eo chips, clearing all chip registers to 
zero, IOINIT initializes the video 
chip registers to their standard 
settings. 

One interesting use of this vec- 
tor is to make a machine language 
program unstoppable by anything 
short of turning off the computer. To 
accomplish this, change the vector 
to point to the initialization routine 
of the program to be made unstop- 
pable. That initialization step should 
include calls to at least the IOINIT 
and CINT routines, and it should 
also disable RUN/STOP-RESTORE 
by redirecting the NMI vector, Here 
is a short example, which can be en- 
tered using the 128’s built-in ma- 
chine language monitor: 


0C00 LDA #$F8 3Use Kernal INDSTA 
0C02 STA §C3 } routine to change 
0Cos LDA #SFF — ; system reset vector in 
0coé STA $C4 3 bank 1 to point to the 
0C08 LDA #$C3_— ; routine at $0C28 
OCOA STA $0289 
OCOD LDA #$28 
OCOF LDX #$01 
ocll LDY #$00 
0C13 JSR  $FF77 
0cié LDA #$0C 
0C18 LDX #$01 
OCIA INY 
OCIB JSR = $FF77 
OCIE LDA #$33 Change the INMI in- 
0C20 STA $0318 =; direct vector to point 
0C23 LDA #SFF_ ; to the interrupt return 
0C25 STA $0319; routine (disables 

} RUN/STOP- 

; RESTORE) 
0C28 JSR  $FF84 = ;Kernal IOINIT routine 
0C2B JSR  $C000_ ;Kernal CINT routine 
OC2E LDX #$00 __ ;Loop to repeatedly 
0C30 LDA $0C40,X ; print the text at $0C40 
0C33 BEQ $0C2E 
0C35 JSR  $FFD2 
0C38. INX 
0C39 BNE $0C30 


sText for message 
>0C40 49 20 43 41 4E 27 54 20 
>0C48 42 45 20 53 54 4F 50 50 
>0C50 45 44 21 0D 0D 00 


Use J FOC00 (from the monitor) 
or BANK 15:SYS 3072 (from BASIC) 
to start the routine. Once started, it 
cannot be stopped with either reset 
or RUN/STOP-RESTORE. 

Obviously, you should make 
sure that your ML program is fully 
debugged—and be sure that you 
have a backup copy, just in case it 
isn’t—before you use this technique 
to make the program unstoppable. 
Once the program starts, the only 
way to stop it is to turn off the 
computer. @ 





220:3B C4 A9 FF 8D GB DB AS 61 | C4D0:62 49 FF 31 FD AG 61 CA 09 


BEFORE TYPING .. . €228:80 8D 18 DB AD 8 BD G1 BB | C4D8:85 61 AD 33 O2 4A 2A CA BE 

seers €230:D8 4c Bl C2 28 BB CO AB 99 | C4EG:DO FC AE 31 O02 DO G2 AD FB 

Before typing in programs, please 238: 98 91 FD C8 CO 3F DO BE | C4E8:00 OS 61 91 FD 60 BD 32 B7 
refer to “How To Type In C240:F9 60 G0 08 GO GO FF FF DA | C4F@:@2 AE OA C5 DD OA C5 FO 58 
COMPUTE!’s GAZETTE Programs,” c2saive Ga 01 Ol eisai ea 28 as cArei64 CA DB F8 60 CA 8A OA 2E 
i €250:00 FF FF FF 06 06 08 08 DS | C500:AA BD 33 C5 48 BD 32 C5 76 
which appears before the Program €258:00 FF 61 00 0 FF 01 OO FF | C508:48 60 27 85 89 86 BA 4D DS 
Bs €260:00 FF 01 12 53 50 52 49 FO | C510:4A 93 12 91 11 9D 1D 87 CL 





€268:54 45 26 4D 41 47 49 43 3F | C518:8B 31 32 33 34 13 88 BC BA 
€270:92 SF 45 52 52 4F 52 20 79 | C520:21 22 23 24 56 53 4c 18 1C 
. . €278:4F 4B 20 53 41 56 45 2F BF | C528:58 59 42 20 AD 2B 2D 04 90 
Sprite Magic €286:4C 4F 41 44 5F 12 54 92 EA | C530:5F 46 OA Cl EA CO 58 Cl 27 
C288:41 56 45 26 4F 52 20 12 83 | C538:2A Cl 86 Cl Cl Cl 33 C2 74 

See instructions in article on page | C290#44 92 49 53 4B 3F SF 46 97 | C540:D9 CO 7F cS B8 C5 8F C5 7D 
44 before typing in €298:49 4c 45 4£ 41 4D 45 3A 67 | C548:9D C5 BF CS F4 C5 66 C6 F9 
4 C2A0:5F 45 4E 54 45 52 20 43 2p | C550:06 C6 06 CG O6 C6 17 C6 FD 

C2A8:4F 4C 4F 52 26 4B 45 59 BA | C558:22 C6 3E C6 SE C6 SE C6 6C 
See ae ae cat eal gs 3/04. 20/64) ||c2nasSr/ A9//63) AB) C2/85) Fal 84) 6F, | C560:5E C6 5B) C6/AB ce 1c CB 96 
ed Ss ee Nod | Cotes ee 8 2 Ce €568:C3 C8 DA C8 AD C5 B6 C5 AT 
FO es EN eri | ete ete a) CCN €578:85 C5 58 C4 58 C4 EB C6 FS 
eee ee eee eee apa rt eal [icace ibe fo se uesuels 98) 4K. 491 D9 C578:F6 C6 41 C9 51 CA SA CA 2B 
22 ON BE DUAAE RDU 23 || C202 PE 28)69/4YABEAZE1O/L8RA €580:CE 2D 62 4C A9 C5 EE 21 27 
Sere ee eee ee aca ae ian, [nczbat20, 20 Ze AdK92420)D2/FF) Fr. |/C588:De 66 EE 2D 02 4c A9 C5 OF 
Hee ee ean eer co ah ||| czEe#A@ (0M) Bll eB 26) D2) We cB CL: || C598:CE-2C) 82.0 30 02 FO 11 26 
eee ee Ce ATC rAct col aga ||\CaBGsCA (6 SOuRGEGOL OS EB: 84:48, |/,C398:CB)2C @2 4C A9 C5 EE 2C OA 
Soe ee ea ce ge as na | C2re:EC A@|/28)A9}20.99 BF 67) AA C5A0:02 AD 30 62 FO 63 EE 2C 5C 
eee ee Ae re ee oe ee gg | c2v8+88 De\ FA A2 18/A9 00 16 DB C5A8:02 68 68 4C EG C3 AD 1D AF 
CO58:FC 69 D4 85 AB E6 FD DO 53 €306:28 FO FF AO OB Bl FB C9 66 | C5BO:D0 49 G1 BD 1D DO 6B AD BA 
CRSAR EC) 62 3EIE GS AB! BORED) Dee 52 | csuaesr) ee) eetaun2)zrico/De) 37, | C5BB117//08 49/8180) 17 DO 66 08 
eee eee earetsaite: co coraBloy || Caigie* 60) AB ia5\@2ux0 @8!/A5 (D7 || CSC8sA2. 18/'8D.305829/ 61 8D 26 
eee ee AD EBC cae ep) | caieta8 .cal/De/PDICAYDO FA 68 BB, | C5C8+1C) De).28,87)C8) A261. BE) 26 
eer e eee Ee eae Are ACU Reh Ge rset aat |e Ceee ao oa 2e D2 PE A988]. 8D) C6. C508 233°.62) B01 63}C0,.80/ 20) Deas 
eee ee eee Cel pat acl aoioe leeasesee a2 80) 2e620A9)68)20 OF |) CaDGsAD | @4)CO) 8D). 25 Da AD) ASHES 
Pea 2 2 N68 2a) Pak BS EAC D) DUDC | ||(G938302/ Fe A986) 80/8A,82/A9) A2 || CEOsCB) 6D 27/D8) AD! a6, CU. 8D, Be 
Caea:ca) 68 86 61 AS 80 8D 2A FB | c338:30 BD 35 82 AD FF 8D 2B 95 | C5EB:26 DO AD 2C G2 29 FE BD 74 
090:02 06 61 2E 2A 02 OG 61 6A | c340:02 AS OO BD 30 O2 AD 6 FG | C5FO12C 02 4C AD C5 AD OO BD 99 
C098:2E 2A 02 AE 2A 02 A9 CF G3 | c348:CO 8D 26 DA AD 4 CO BD F1 | C5P8:30 02 BD 20 DB AD 1c DO 96 
Gengsol ED CO AD F7 91 FB G8 24 | c350:25 DB aD 27 DB 20 G7 Co 98 | C6ADsAD 04 CO ED 27 DB 6A 30 co 
CORB:BD 03 Co 91 A7 CO 91 A? 26 | c358:A9 FF 8D OO DB AD BO BD 22 | CéOB:AD 32 G2 ED 31 BD 33 02 FF 
COBG:CB CO OB DO D7 ac 4A CO 1A | c360:01 DO AD 28 2 BD FB G7 44 | C61G:AA BD 03 CO BD 20 DO 6O BD 
COBSTA9| 28 85. FE AD 28 02 G5 53 | C368:A9 81 GD 15 DB\A9 BB BD C2 | Cél8sA9 8B AD 2C G2 BD 2D 62 91 
COCOsED G6 FD 26 FE 36 ED 26 17 | c370:1C DB AQ OC BD 21 Dd BD 5B | C620:4C AD C5 20 DA Co 20 87 1A 
COCE1EE 20 ED 20 FE 6 ED 26 SF | c378126 DB BD 2c @2 SD 2D G2 5B | C628C0 20 DA co 20 97 CU 20 44 
Tee e ee ee Sc ce Ge FO Ob ny ny | C388:28 Bl C2 26 3B C4 26 27 13 | C630:B8 CO AB G0 Bl FD 99 8B A2 
CoUe AFR 49 oF 01 FD ce co 40 ar | €288:C8 20 1E C4 AD 8 DC 48 F7 | C638:CA CB CO 40 Dd FE 60 20 BC 
Cee ae ee on up Ce CO 40 Al | c390:29 OF 49 OF BD 2E 02 68 1c | C640:BB CO AG BO BI BB CA 91 91 
Sere oe Be oe oe on Oo ne on ag | €398:29 10 BD 2F a2 20 £4 FF B7 | C648:FD CB CO 40 DO FE 60 90 D6 
COO A? 03 Bl ED 20 on OB St ag | C3AQ#FO 06 20 EE C4 4c 86 C3 3D | C650:05 1c OF 9c 1E 1F 9E 81 51 
Sees Oo CA DO oe ao Oo op pe | C3A8#20 12 C3 AD 2F G2 DO O3 3E | C65B:95 96 97 98 99 9A OB AD EA 
cee oe co be Ee 28 co Fr OC | c3B0:20 59 C4 20 1E C4 AD 2F C7 | C660:Al AO C2 20 BS C2 20 85 BF 
Creel Co on oo an Ob oe oe se | C388#02 49 10 BD 34 02 AD 2E Al | C66B:CA A2 OB DD 4F Co FO 0B 61 
Srigine Oo Bt ED to oe G8 Ge ac | c3c0:02 FO C3 AE 2E 02 BD 42 20 | C670:EB EC 10 DO F6 4c Bl C2 cB 
Cree iee Ce CA be oe on 08 31 32 | c3c8:c2 AC 30 02 FO G1 OA 18 BA | C678:38 AD 32 02 E9 21 AB BA A3 
Cae DO Ee GO oO be Ca Se ap ay | C300:6D 2c a2 BD 2c 92 18 AD 7A | C6B0:99 03 CO AD 30 G2 DO 09 C2 
eet Ee Oo Oe ee oe ae oe oa | €3D8:2D 62 7D 58 C2 BD 2D G2 55 | C6BB:AD O4 CO BD 27 DB AC A3 97 
oe Bs be pr Sb Ge Ge Se os 5, | C3EQ:AE 2c 82 10 11 A2 GO BE AD | C690sC6 AD 04 CO BD 25 DB AD C9 
Glag sem CO 08 CB CO Oh ae py oy | C3E8#2C 82 A2 17 AD 30 02 FO EF | C698:05 CO 8D 27 DB AD 06 CO 07 
GLAS LED Ae OB AB Se be Ob Gh Bp | C380:02 A2 16 BE 2c 02 AE 2c co | C6AD:8D 26 DO AE 33 02 BD 03 A3 
CLagset A2 00 Ad 3c BD CB CA B2 | C3P8:02 EO 18 90 O5 A2 GO BE 07 | C6AB:CO BD 20 DO 4c BI C2 AD 63 
p82 24 BD C8 ES EO 93 Dg FS GE | c400:2c 02 AC 2p 92 10 O5 AO 83 | C6BD:D2 AB C6 20 BS C2 20 EA BB 
C158:60 20 BB CO AO 3C A2 OO 72 | caOB:14 BC 2D G2 AC 2D G2 CO 63 | CoBB:FF 38 E9 30 30 FA CO OA 97 
Ci6g:B1 FD 9D CB CA C8 EB EO DB | c410:15 90 05 Ad OO BC 20 62 81 | CéCO:BO F4 85 61 38 AI 09 ES OB 
Gi7aica cs’ si! pp esas areal oc: || Gasaese ae C4 4c G61C3/AB)2D\64 | c6cai6)) BA GA) OA\.8D) 25' 82 4c FC 
6178110 F3 AG 08 B9 CB CA 91 39 | Gasoig AG 25 OF ce be Fe AG E4 | CoDd:B1 C2 43 55 52 53 4P 52 76 
Cl8d:FD CB CO O3 bd F6 6D 20 co | GazBibe AD 30 02 DO BS AD 20 3B | cEpB120 56 45 4c 4F 43 49 54 E7 
cierig st ct ao oe soy | CUE Oe Ce Gs | Sea Rau Boo 
clgecst tp i au fo 38 cn an | Chane 20 os Ge 29 af 19 08 S| Geran gl So a oe S¢ SY GE ch 
CUABGEG! CB) CANCE 62 z be DO 63 | C450:20 CD BD A9 26 20 D2 FF D6 | C70G:FE 90 O4 EE 2B 02 60 20 E4 
GIneiEstcotseksahn7 ma os bd Dl | C458:68 26 B8 CO AD 2D O2 BA 6D | C708:3B C4 68 AG GO BC 37 G2 1F 
CIBO:E3 CO 3F 90 D7 AO OO BO 42 | C469:6D 2D 62 85 61 AD 2C 2 AO | C710:A9 Ad 26 D2 FF AD 9D 20 DO 
See yo Ee oo ae F | c468:4A 4A 4A 18 65 61 AB AD 24 | C718:D2 FF 26 85 CA AC 37 02 E6 
CiCOsEG GO A 23 20 D2 FF AD 40 | C470:2C 02 29 07 49 G7 AA EB CA | C720:85 61 A9 20 20 D2 FF AS F7 
Cice:@0 De B5 61 29 OF 49 OF 71 | c478:86 61 38 AD OO 2A CA DO 4E | C728:9D 20 D2 FF AS 61 C9 OD 3c 
C1DBLAA AD OO DO 18 7D 42 C2 20 | CABO1FC AE 30 02 DO 2F 85 61 OA | C730:FO 2B C9 14 DO OD CO a0 BD 
Gree TaD go Da AD 10 DO 7D 4d 24 | C4BB:AD 34 2 DO 10 AO OO BD F7 | C738:FO D3 8B AD 9D 20 D2 FF F3 
STEBTTa aol ae ober wales €490:31 62 Bl FD 25 61 D® 65 9E | c740:4C OD C7 29 7F C9 20 90 BB 
Ghee AS GH CA ED 6 2 ue C498:A9 @1 BD 31 G2 AS 61 49 AE | C748:C4 CO 14 FO CO AS 61 99 F4 
CLFQ:C3 AD 8D 02 29 1 18 GD 7E | C4AO:FF 31 FD AE 31 02 FO 02 96 | C750:00 02 20 D2 FF A9 OO 85 BD 
ClFB:F8 07 8D F8 O7 AD 8D 02 OB | C4AB:05 61 91 FD AD 38 02 FO 62 | C758:D4 CB 4c OD C7 Ad SF 99 1c 
[20:29 02 4A 49 FF 38 6D FB 2D | c4B0:03 20 1E CA 60 85 62 4A SC | C760:00 02 98 60 20 E7 FF AD D3 
SOO RS ee 9 | c4p8:65 62 85 62 AE 34 02 DO 4F | C768:85 AD C2 20 BS C2 26 65 BB 
aaverro tanto! F® BD | c4c@:@E A2 OB BE 31 B2 31 FD D4 | C776:CA A2 O1 C9 54 FO OB A2 ED 
: B 62 8D F8 87 20 GA | C4cB:D8 O5 AY G1 BD 31 G2 AS 1c | C778:08 C9 44 FO B5 68 6B 4C FC 
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C780 :B1 
C788 :01 
C790:20 
C798:AD 
C7AG:36 
C7A8:8D 
C7BO:A9 
C7B8:00 
C7C0:02 
C7CB:A9 
C7D9:C9 
C7D8:02 
C7EQ:C8 
C7EB:AG 
C7FO:C8 
C7FB:14 
C800 :85 
C808:41 
C810:20 
C818:59 


C848:FE 
C850: 20 
CB858:D0 
C860: 20 
C868:02 
€870:C2 
c878:Bl 
C880:0F 
C888: 20 
C896 :A0 
C898 :07 
CBAD:A9 
CBAB:A9 
CB8BO:0F 
C8BB:FF 
C8CO:FF 
C8CB8:EL 
C8D8:FD 
cap8:4c 
CBEB:00 
CBEB:4C 
CBFO:A9 
CB8FB:20 
C900:08 
C908:08 
C910:69 
C918:69 
920:D8 
C928:61 
C930:40 
C938:00 
940:01 
948:2D 
C950:01 
C958:08 
C960:61 
C968:B1 
C970:3A 
C978:61 
c980:C9 
COBBrA5 
990:co 
C998:A5 
COAG: 2E 
C9AB:91 
C9BO:A9 
C9BB:62 
c9ca:c8 
c9C8:AD 
C9DG:01 
c9p8: 2D 
C9EO:29 
C9ES:88 
C9F@:2D 
COF8:85 
CAGO:A4 
CAGB:98 
CA1@:2D 
CA18:00 
CA20:C1 





Bl 
39 
40 
cs 
85 
4c 
22 


E6 
AG 
18 
2E 
20 
2D 
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CA28:A8 A2 66 B9 CB CA 9D OB 26 
CA30:CB CB E8 EO 83 DB F4 20 GE 
CA38:87 Cl AD 2D 62 BA 6D 2D CA 
CA40:62 AB A2 69 Bl FD 1D OB 20 
CA48:CB 91 FD C8 E8 E@ 93 DB 16 
CAS@:F3 66 AD 38 G2 49 1 8D F5 
CA58:38 62 60 20 BB CB AD BO AZ 
CAGO:A2 3C AO 03 85 61 Bl FD CE 
CAG8:9D CB CA CB EB C6 61 AS 70 
CA78:61 DO F3 BA 38 EO O6 AA 32 
CA78:10 E8 A® 3E B9 CB CA 91 6C 
CA8O:FD 88 16 F8 60 20 E4 FF 16 
CA88:F@ FB 68 88 GB 80 GO OG Al 





BEFORE TYPING .. . 
Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 











Sprite Stamp 


See instructions in article on page 
53 before typing in. 


Program 1: Sprite Stamp 


2000:20 FD AE 20 9E AD 20 AA 7F 
008:B1 8C 8A C2 AO BF BD 15 7F 
C@10:D8 AY 7A BD BC C2 BD BE AS 
C@18:C2 8D @5 DO BD 67 DO AD DF 
C820:02 8D 27 DO BD 29 DO AD 54 
C628:0C 8D 10 DO 8D 17 DO BD 1A 
C030:1D DB AY 22 BD B4 DO BD 77 
038:06 D@ AI GE BD FB 87 BD F2 
C640:FA 87 AI 06 BD 28 DO BD D2 
648:2A DO AD O1 BD 3F 83 20 E7 
C850:09 C4 AY OF BD FB O7 BD AS 
CO58:42 03 AD 42 63 8D FO 07 DE 
C060:A9 CO 8D 96 C2 AI SF BD AA 
C068:92 C2 AI OB BD 98 C2 BD FA 
C870:44 03 BD 94 C2 BD 48 63 AF 
C878:8D 49 63 AD OB BO 9E C2 64 
C080:99 86 83 CB CB 40 DO FS 7A 
C@88:A9 FC 8D 10 D@ AD FC BD 85 
C890:1D D@ AO 6B BI DD C2 99 4D 
C898:40 3F CB CO 48 DB P5 AD GA 
C@AG:21 8D 68 DO 8D BA DB BD E7 
COAB:GC DB AD AS BD B9 DO AY CF 
COBO:FD 8D FC 07 AY BO BD 2B 38 
COB8:D8 8D 2c DO BD 2D DO AD FB 
C@C6:08 BI 1D C3 99 BO 3F CB AG 
COC8:CB8 46 DO FS AO BA 8D OB 92 
C@D8:D8 AY FE 8D FD 87 AG BO 2B 
C@DB:B9 5D C3 99 CB 3F CB CO FS 
COE@:48 DO F5 AD DC BD OD DB 18 
C@E8:A9 FF 8D FE 07 20 FA C3 53 
COF@:AD O88 DC C9 77 DB OD AD 48 
COF8:8C C2 C9 FF BO 86 EE &C B2 
€160:C2 4C 31 Cl C9 7B DO BA 22 
C108:AD 8C C2 C9 19 98 63 CE 5A 
C110:8C C2 C9 7D DB OD AD BE 40 
€118:C2 C9 E5 BO 6 EE BE C2 G3 
€120:4C 31 Cl C9 7E D@ OA AD E3 
€128:8E C2 C9 33 98 03 CE BE CC 
€130:C2 AD 8C C2 8D BB DO AD F9 
C138:8E C2 8D 01 D@ AD 66 DA 83 
€140:8D 02 DO AD G1 DO BD 03 69 
€148:D@ A5 C5 C9 17 DB BB AI AB 
C150:08 8D 15 DB 4C FD C3 C9 92 
C158:14 D@ G3 20 88 C4 C9 11 34 
€160:D8 03 20 12 C2 C9 3c DO BB 
C168:03 20 1E C2 A5 C5 C9 OD 4A 
C178:D8 13 AI G1 8D 53 G3 20 46 
C178:DA Cl A9 88 8D 96 C2 26 7B 
188:CC Cl 4c 85 Cl A5 C5 C9 BE 
C188:GE DB 18 AI BB BD 53 G3 C3 
€198:286 DA Cl A9 88 8D 96 C2 D3 





C198:20 
C1AG:3F 
CLAS: 28 
C1B8:8D 
C1B8:c4 
clcd:c1 
Clc8:cl 
C1D8:AG 
C1D8:F6 
C1EG:14 
ClE8: 40 





C210:c4 
C218:96 
C220:c2 
C228:8D 
€230:a9 
C238:94 
C240:AC 
C248:A9 
C256:63 
C258:49 
C26 8 
C268:C3 
€270:C4 
C278:E8 
C280:8D 
C288:C2 
c298:ce8 
C298:0A 
c 








C2B8:04 
C2c8:00 
C2C8:80 
C2D0:04 
C2D8:00 
C2E0:C6 
C2E8:D4 
C2F0:A1 
C2F8:82 
C306 :00 
C308:8A 
C310:FE 
318:88 
C320:FA 
©328:56 
C338 :00 
©338:D6 
C340:A4 
0348:04 
C350:AE 
C358:D3 
C368 :00 
C368:08 
C370:AA 
C378:08 
C380:FF 
©388:55 
C398 288 
398 :00 
C3A0:41 
C3A8:60 
C3B0:7E 
C3B8:3C 
3C8:44 
¢3C8:83 
3D6:08 
C3D8:00 
C3E0:09 
C3E8:00 
C3F0:00 
C3F8:06 
c400:4c 
c408:Cc6 
C410:20 
C418:08 
C420:A2 
¢428:9D 
C430:06 
C438:EC 








c440:11 
C448:18 
C450:C4 
C458:C7 
C466:26 
C468:48 
C470:CA 
C478:6D 
C480:56 
C488:F8 
c490:65 
C498:FD 
C4A0:FE 
C4A8:25 
C4B0:85 
C4B8:FD 
C4cO:FD 
C4CB:F6 
C4D0:8D 
C4DB8:CA 
C4E0:36 
C4E8:8D 
C4FO:03 
C4F8:42 
C500:2E 
C508:CA 
C510:55 
C518:2E 
C520:CA 
C528:CA 
C530:29 
C538:2D 
C540:20 
C548:29 
C550:2D 
C558:20 
C560:29 
C568:2D 
C570:20 
C578:29 
C580:2D 
C588:26 
C590:B1 
C598:C6 
C5AG:FO 
CS5A8:BL 
C5B6:C6 
C5BB:FO 
C5CO:B1 
C5C8:C6 
C5DO:Fa 
C5p8:B1 
C5EO:C6 
C5E8:FO 
CS5FO:2D 
C5FB:20 
C600:29 
C608: 2D 
C616:20 
C618:29 
C620:2D 
628120 
€630:29 
C638:2D 
C640: 20 
C648:29 
C650:05 
C658:C8 
C660:CA 
C668:C3 
C670:208 
C678:D8 
C680 :CA 
C688 200 
C690:55 
C698: FD 
C6AG:AD 
C6A8:C9 
C6BO:C9 
C6BB:C9 
c6c8:c9 
c6C8:Cc9 
c6pa:c9 
C6D8:C9 
C6EO:C9 


Do 
Do 
68 
ED 


8p 


65 


85 
AD 
cA 


CA 
6D 


cA 
6D 


cs 
co 
4c 
52 
oD 
91 
38 
CA 
AC 
B2 
69 
69 
69 
69 
69 
69 
69 
69 











C6E8:C9 
C6FO:08 
C6FS8:48 
C788:C9 
708:C9 
710:C9 
C718:9A 
C728:2A 
C728:8A 
C730:34 
C738:1D 
C749:8D 
C748:C9 
C756:8D 
758:C9 
¢766:8D 
C768:A9 
C77@:AD 
C778:08 
C786 :C9 
C788:CB 
¢798:C9 
C798:04 
C7AB:A9 
C7A8:8D 
C7BO:A9 
C7B8:AD 
C700 :32 
C7C8:8A 
C7DO 34 
C7D8:1D 
C7E0:8D 
C7E8:C9 
C7F@:8D 
C7F8:C9 
C800 :9A 
C808:52 
C810:8A 
C818:34 
C826:03 
C828:7A 
830:C9 
C838:62 
C840:7A 
CB48:FC 
CB858:C9 
C858:2D 
CB60:C9 
C868:0E 
C870:C9 
C878:A2 
C886 :E0 
c888:6A 
C890:85 
C898 :88 
CBAG:62 
CBAB:4C 
CBBO:C9 
C8B8:FB 
CBCB:Da 
CBCB:BA 
C8D8:Cc9 
C8D8:4C 
CBEG:AD 
CB8E8:C9 
C8FO:55 
C8F8:2E 
C980:C9 
C908:55 
c916:8D 
c918:c9 
C926 :80 
C928:88 
C938:08 
C938:00 
€940:00 
0948:00 
C956 :08 
C958 :08 
C960 :08 
C968:00 
976 :00 
c978:00 
C980 :00 
C988:088 











C996:08 BB C9 BB OB BO BB HH SD 
C998:08 BB G1 BO BB BB BG 9B 4c 
C9AG:8B GB 18 GB GB BB BB BO 37 
C9A8:98 BB G9 GB GB BB BO GB 5D 
29BG:08 GB CO BB BO BO BB BB SC 
C9B8:08 BB G3 BG BD BB BB OB AC 
C9ICB:08 OO GF BB BH BO BO GO 36 
C9C8:08 BB BB BB OB BO BO BB SC 
C9DG:0B BB GB BO BB BO BO BO 64 
C9D8:88 BO BB BO OB BB BO OH 6C 
C9EB:08 GB OO BB BB BO OB OO 74 
C9ES:88 OB GB BD OO BB BB BB 7C 
C9FO:08 BG BO BO OO BB BG HO B4 
C9F8:08 BB BB GB OB BB BO BB BC 


CAG 
CAG! 


@ BB BB BO BO 57 BB BO F2 





CA16:08 88 OO BG OB 15 BB BO FO 
CA18:08 G0 8 GO OB 3C BO OO IE 
CA20:00 06 68 BB BO 80 40 20 5B 
CA28:16 88 84 62 O1 57 96 BO CD 
CA30:08 88 BO BO OB BB OO GO CS 
CA38:08 88 60 60 GO 9E BB OO 48 


cad 


9 88 BB GB BG BB GB GB DS 





CA48:08 G8 BB BO GO 18 BB OO 1E 
CA5G:00 60 G6 08 OO EF Ol OO AT 
CA58:08 88 BO BO OB BB BB BO ED 


Program 2: Starter 


KC 


xc 


QP 


10 REM COPYRIGHT 1987 COMPU 
‘TE! PUBLICATIONS, INC. - 
ALL RIGHTS RESERVED 

26 POKE 53288,0:POKE 53281, 
@:PRINT" {CLR} (CYN} 
(3 SPACES}COPYRIGHT 1987 
COMPUTE! PUB., INC." 

30 PRINTTAB(10)"ALL RIGHTS 
(SPACE) RESERVED(2 DOWN)" 

40 IF L$<>"" THEN160 

50 INPUT"LOAD FILE (Y/N)";A 


$ 
60 IF LEFT$(A$,1)="N" THENL 
cr) 


78 PRINT"({CLR)*** LOAD *** 
{pown)} 

80 INPUT"FILENAME";L$ 

98 LOAD L§,8,1 

100 SYS 49152,S:REM S IS ¢# 
{SPACE]OF SHAPES 

110 PRINT"(CLR)*** SAVE *** 
{pow} " 

128 REM CLEAR BUFFER 

130 PORI=1T010:POKE630+1,6: 
NEXT 

140 INPUT"FILENAME [RETURN 
{SPACE}TO ABORT)"; FS 

150 IF F$="" THEN PRINT"STO 
P":END 

168 L=LEN(FS) 

178 FOR X=1 TO L 

188 POKE 24559+X,ASC(MID$(F 
$,X,1)) 

196 NEXT 

200 POKE 780,4:POKE 781,8:P 
OKE 782,255 

210 SYS 65466 

220 POKE 780,L:POKE 781,240 
:POKE 782,95 

230 SYS 65469 

248 POKE 251,@:POKE 252,32 

250 POKE 780,251:POKE 781,6 





3 
260 POKE 782,63:SYS 65496 


Program 3: Sprite Data Skeleton 


DR 
JG 


cc 
DE 
aK 


10 X=24576 

20 READ A:IF A=-1 THEN POKE 
850,10:END 

30 POKE X,A:X=X+1:GOTO20 

40 REM 

50008 DATA 
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BEFORE TYPING .. . 


Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 





AD 
Js 


SH 
XR 





400 
410 


420 
430 


Commodore 
Relative Files 
Article on page 64. 


Relative File Demo 
BE 18 REM COPYRIGHT 1987 COMPU 


TE! PUBLICATIONS INC. - 
(SPACEJALL RIGHTS RESERV 


ED 
PRINT" (CLR}{2 SPACES}COP 
¥RIGHT 1987 COMPUTE! PUB 
+, INC." 
PRINTTAB(9)"ALL RIGHTS R 
ESERVED(2 DOWN)" 

OPEN 15,8,15 

OPEN 1,8,2,"@:TESTREL" 
INPUT#15,E,E$,E1,E2 

IF E=@ GOTO230 

CLOSE 1 

IF E<>62 THEN PRINT E;E$ 
;E2:STOP 
PRINT"CREATING FILE" 
OPEN 1,8, 2,"0:TESTREL,L 
+ "+CHRS (33) 
INPUT#15,E,E$,E1,E2 

IF E¢>@ THEN CLOSE 1:PR 
INT E,E$,E1,£2:STOP 
PRINT#15, "P"+CHR$(98)+C 
HR§$(10)+CHRS (0) +CHRS (1) 
INPUT#15,E,E$,E1,E2 

IF E<>50 THEN CLOSE 1:P 
RINT E;E$;E1;E2:STOP 
PRINT#1,CHR$ (255); 
INPUT#15,E,E$,E1,E2 
CLOSE 1 

IF E<>@ THEN PRINT E;E$ 
7E1;E2:STOP 

OPEN 1,8,2,"0:TESTREL” 
GoTO240 

PRINT"FILE ALREADY EXIS 
Ts" 

PRINT" (2 DOWN}1. READ A 
LL_RECORDS" 

PRINT"2. WRITE RECORD" 
PRINT"3. QUIT" 

INPUT" {DOWN}WHICH (1, 2 
OR 3)";X:PRINT 

ON X GOTO300, 440,710 
Goro240 

R=O 

R=R+1:P=0:X=0 

HINT (R/256):L=R-H*256 
PRINT#15, "P"+CHR$(98)+C 
HRS (L) +CHR$ (H)+CHRS (1) 
INPUT#15,E,E$,E1,E2 

IF E=5@ GOTO240 

IF E¢>@ THEN PRINT E;E$ 
3E1;E2:GOTO710 
INPUT#1,X$:SW=ST 

IF X$=CHR$(255) THEN PR 
INT" RECORD"; R; "<EMPTY>" 
:GOTO316 

IF F=@ THEN PRINT"RECOR 
D":R; "3" 

F=F+1:IF SW=0 THEN X=. 
PRINT" {5 SPACES)FIELD 
Fr"% $ 

IF SW=6 GOTO370 
GoTO310 
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BG 440 


INPUT"WRITE TO RECORD N 
UMBER";R 


JC 456 IF R<l OR R<>INT(R) GOT 


AK 460 


0440 
IF R>40 THEN PRINT 
BIG!" :GOTO570 


"TOO 


470 H=INT(R/256) :L=R-H*256 
480 PRINT#15, "P"+CHRS$(98)+C 


490 
500 


510 


5208 
530 
540 
550 
560 


570 
580 
598 
600 
6198 
620 
630 


640 
650 
660 


678 
686 
690 


700 
710 
720 


HR$(L)+CHR$(H)+CHRS(1) 
INPUT#15,E,E$,E1,E2 

IF E=5@ THEN PRINT“A NE 
W ONE!" 

INPUT"HOW MANY FIELDS ( 
1-3)";3N 

IF N¢l OR N>3 GOTOS10 
as="" 

PRINT"ENTER DATA:" 

FOR J=1 TO N 

IF N¢<>?] THEN PRINT"FIEL 
D" id; 

INPUT BS 

AS$=A$+B$+CHRS (13) 

NEXT J 
AS=LEFTS (A$, LEN(A$)-1) 
PRINT#1,A$; 
INPUT#15,E,E$,E1,E2 

IF E<>@ THEN PRINT E;E$ 
tE1;E2 

CLOSE 1 
INPUT#15,E,E$,E1,E2 

IF E<>@ THEN PRINT 
7E1;E2 

OPEN 1,8,2,"0:TESTREL" 
INPUT#15,E,E$,E1,E2 

IF E<>0 THEN PRINT E;E$ 
7E1;E2 

GoTo240 

CLOSE 1 

CLOSE 15 





Bounty Hunter 


Article on page 29. 


BE 10 REM COPYRIGHT 1987 COMPU 


AM 


28 


38 


40 


50 


60 
768 


80 
96 


TE! PUBLICATIONS INC. ~ 
(SPACEJALL RIGHTS RESERV 
ED 

POKE53269, 0:SP=53248 :N=5 
4272:SP$="(15 SPACES}":P 
OKE53281,6:POKE53280,16 
PRINT" {CLR} &33({RVS} 

{4 SPACES}COPYRIGHT 1987 
COMPUTE! PUB., INC. 

(2 spaces}" 
PRINT" (RVS) (11 SPACES}AL 
L RIGHTS RESERVED 

(18 spaces) (OFF} £83"; 
DIMST$(50),CA$(56),NBS(5 
®),AB(50),PK(50),A$(58), 
SX(50),S¥(58),CP(58),ST( 
50) 

C=C+1 s IFC=49THENBO 
READSTS$(C) :READCA$(C) :RE 
ADSX(C) : READSY(C) :READNB 
$(C) :GOTO6S 
FORX=842T0881 : READA: POKE 
X, A:NEXTX 

FORX=906T0945 : READA: POKE 
X,A:NEXTX 





108 FORX=976T01609:READA: PO 


116 
128 


138 


KEX, A: NEXTX 

POKE2040, 13: POKE2041,14 
:POKESP+28,3 

POKE53285, 16:POKE53288, 
2:POKE53287, 9: POKESP+16 
8 

POKESP, 12: POKESP+1,176 
:POKESP+2, 240: POKESP+3, 
176: POKE53269, 3:XZ=-1 


140 PRINTTAB(214)"CHOOSE ON 








JQ 


DA 


Qc 


RC 


158 
168 
170 
180 
198 


200 
210 


220 


2308 
248 


250 


260 


278 
280 


298 
388 
310 
321 


330 
340 
350 
360 


3708 
380 


398 


400 


410 


420 


430 


440 


450 


E:"SPC(68)"1 
UNTER"SPC(63 
DOWN 





BOUNTY H 
2 - COUNT 





PRINTTAB (247) "BOUNTY HU 
NTER"SPC(6) "CROOK" 
GETA$:R=RND(1) :IFA$<"1" 
ORA$>"2"THEN160 
P=VAL(A$) : IFF=1THEN210 
POKESP+3, 250: PRINT" 
(CLR}"TAB(253) "MINUTES 
(space) (1-5)" 
GETA$: IFAS<"1"ORA$>"5"P 
HEN19G 
SC=VAL(A$) rSC=SC*60+1 
PRINT" {CLR)"TAB(215) "CH 
OOSE ONE:"SPC(69)"1 - S 
TATES"SPC(70)"2 - CAPIT 
ALS" 
GETA$ : IFA$<"1"ORA$> "2"'T 
HEN220 
IPAS="1"THEN250 
FORX=1T048 :ST$(X)=CA$(X 
) :NEXTX 
PRINT" {CLR} "SPC(214)"1. 
(SPACE}- VISIBLE "SPc(6 
8)"2 - INVISIBLE 
GETA$:IFA$<"1"ORA$> "2" 
HEN260 
E=VAL(A$) : IFF=2THEN1480 
pens (93) "DIFFICULTY 
1-3 
Sa BREED CO) EL RR= 


GETASs TFAG<"2" ORAS>"3"T 
HEN306 

B=VAL(A$) :B=4~B: POKESP+ 
1, 250: POKESP+3 , 250 
PRINT" {CLR} (CYN} "TAB (20 
5)"THE CROOK IS IN "ST$ 
(RC) : FORX=1T02600 :NEXTX 
GOTO1489 

PRINT" {CLR} (CYN]"; :POKE 
SP+3,250 
SX(18)=290:SY(18)=173:8 
X(19)=275:SY(19)=76:Sx( 
20)=290:SY¥(20)=140 
SX(21)=280:SY(21)=106:S 
X(22)=285 :S¥(22)=200 
IFE=2THEN630 

PRINT" {RVSJOR6 ¥300 
£12 Y30k6 YIPE4 YIE*3 
PRINT" {RVS}O[OFF}E*3 
(Rvs}{6 SPACES) &HIM 

(12 spaces) §H3 

(6 spaces}§N3(6 SPACES) 
Corr) £ 

PRINT™(RVS)&H3 

(7 SPACES}RH3 BHI 

{11 SPACES) &H3 

{6 SPACES}§N3(5 SPACES) 
(orr}£ 

PRINT" ({RVSJOME3 PIN 

&2 Y3€HI MBIT P9OR7 Ya 
&HI(4 SPACES} (OFF} 
PRINT" {RVS) BHI 

{7 SPACES)RH3(4 SPACES} 
€H3(8 SPACES) RHI 

{7 SPACES}§HI(4 SPACES} 
Eta 

PRINT" {RVS] BH9 
(7_sPacEs}&H3(4 SPACES) 
£H3(8 SPACES) EH 

My SPACES} §H3{5 SPACES) 


print (RVS)LE7 P3LE4 Pa 
Hee SPACES]LE6 PJ‘O 
ke ¥2 

PRINT" {RVS} BH 

{2 SPACES} EN3(6 SPACES} 
BH3(2 SPACES} £HI 

{8 SPACES} &H3(6 SPACES} 
MBHA({6 SPACES}P 








KD 


KC 


oP 


RC 


KM 


AR 


GM 


cs 


GE 


HK 


Gx 


XP 


RG 


EX 


BQ 
aM 


KE 
PC 


AD 
QD 


460 


470 


480 


490 


500 


516 


520 


530 


540 


550 


560 


578 


580 


5908 


600 


610 


620 


638 


640 
658 


660 
6708 


PRINT" (RVS} EH3 

{2 SPACES}—N3{6 SPACES} 
&H3(2 SPACES}LE8 P3ILEPI 
{6 SPACES}M{6 SPACES} 
ENQ 

PRINT" {RVS} EH9 

{2 SPACES} &Na(6 SPACES} 
BHI(4 SPACES} RH 

(8 SPACES}EH3{5 SPACES} 
EN3(6 SPACES} {OFF} 
PRINT" {RVS) HI 

{2 SPACES} £NI{6 SPACES} 
kH3({4 SPACES} EHI 

{8 SPACES}LE5 P3@k6 Y3 
PRINT" {RVS] RHI 

{3 SPACES}M{5 SPACES} 
EHA(4 SPACES} EH] 

{8 SPACES}§H3(6 SPACES} 
M{5 SPACES) (OFF} 

PRINT" &*3({RVS} 

{4 spAces}M({4 SPACES) 
&H3(4 SPACES} &Ha 

{8 SPACES}—HI{6 SPACES} 
—n3{6 SPACES} {OFF} 
PRINT" £*9(RVS} 

(4 spaces}M{3_ SPACES) 
&H3(4 SPACES) £H3 

{8 SPACES} RHI[6 SPACES} 
&Ng(6 SPACES} E*9 
PRINT"{2 SPACES}£*3 
(rvs}{4 SPACES}MOk6 YI0 
ke Y3PE9 YaLEe PY 
PRINT"(3 SPACES} &*3 
{Rvs} {4 SPACES]M 

(6 SPACES}—H3(6 SPACES} 
ENJE3 Y3EHI(5 SPACES) 
BHI(5 SPACES) (OFF) £ 
PRINT"({4 SPACES}R*3 
{Rvs} (3 SPACES]N 

{6 SPACES}£HI{6 SPACES} 
ka{3 SPACES}M 

{5 SPACES}EH3[5 SPACES} 


PRINT" (8 SPACES}§*3 
{Rvs} {6 SPACES} &H9 

{6 SPACES)EN3([4 SPACES} 
&5 yagHa(5 SPACES) (OFF) 
PRINT"{9 SPACES} &*3 
{RvS}{5 SPACES}RHIE6 PI 
@{9 SPACESJOR5 Y3 
PRINT" (WHT }MOVE? {CYN} 
{5 SPACES} &*3{RVS} 

{4 SPACES)L{OFF) &*4 
{rvs} {14 SPACES] BHI 

{5 SPACES} (OFF) 
PRINT"({18 SPACES}E*3 
{Rvs} (13 SPACES} BHI 

{2 spaces} {Rvs} 

{2 SPACES} (OFF}£ 
PRINT"£330K10 YJP{cyn} 
{SPACE} {YEL] SCORE: {CYN} 
E*3(RVS}{11 SPACESJN 
{7 SPACES} (OFF} 
PRINT"B398H3(10 SPACES} 
En3(CyN}(8 SPACES}E*I£ 
E*3(Rvs}(4 spaces} {OFF} 
£(9 SPACES) &*3(RVS}E*9 
PRINT" €339€HI{10 SPACES} 
En3{CyN}(11 SPACES}E*3 
{Rvs}{2 SPACES} {OFF} £ 
{11 spaces) &*3(RVS}E*3 
{orr}" 






(12 SPACES} &*3<' 
IFF=2THENGOSUB2746: PRIN 
TLA; 

IFF=20RRC> 22THEN670 
IFSX(RC)>255THENK=255:P 
OKESP+16, 3:CX=2 
POKESP+2,SX(RC)-K: POKES 
P+3,S¥(RC) :K=0 
GOSUB1596:GOTO1010 





g 


DF 


FQ 


cs 


EH 


DM 


GQ 


QA 


PX 


MK 


AB 


PF 


HG 


xc 


xs 


PK 


Fo 


DH 


cF 


680 


698 


788 


710 


720 


730 


749 


756 


768 


7708 


786 


798 


860 


810 


820 


830 


840 


856 


86a 


876 


PRINT" {CLR}"; :POKESP+3, 
250 





SX(18)=57:S¥(18 
(19)=49:S¥(19)=! 
)=66:SY¥(26)=138 
SX(21)=44:SY¥(21)=93:Sx( 
22)=57:SY¥(22)=205:IFE=2 
THENI6 

PRINT" {RVS}(7 SPACES} 
(orr}£{28 spaces} (RVS} 


OEY3 

PRINT" (RVS}{6 SPACES]N 
(SsPACE}MEP3{3 SPACES} — 
£*3 (OFF) {WHT} MOVE{CYN} 
{16 spaces} (Rvs}£ 

{2 SPACES} {OFF} 

PRINT" (RVS}{6 SPACES} 
&HI(3 SPACES} MN{OFF} 
(Rvs}£(2 SPACES} E*] 
{orr}T11 spaces} {Rvs} 
EHI{2 SPACES}EH] EHIENI 
{3 SPACES}&*2 

PRINT" {RVS}{6 SPACES}M 
{5 SPACES} {OFF} {Rvs} 
{3 spaces} (oFF}£ 

{11 spaces} (RVSTRHI 

{2 SPACES}§HJ EHIEN3 
Corr} £ 

PRINT" (RVS}E7 YIRHI 

{4 spAcEs}{OFF} {RVs} 
{4 spaces} {OFF} 

{7 spaces} (RvS}£ 

{6 SPACES) EHIN N 
PRINT" {RVS} {7 SPACES} L 
{4 SPACES} {OFF} {Rvs} 
{4 spaces} (OFF) 

{6 spaces} (RVS}£ 

{7 sPACES}Og2 Y¥ {OFF} 
PRINT" §*3(RVS} 

(7 sPACES}OE3 Ya{OFF} 
(rvs}&2 YIOEYIE*I {OFF} 
(SPACE} {RVS}£EY3OE7 Y3 
M OFY3PME*3 (OFF }EG3 
PRINT" [RvS}(7 SPACES} 
EHI(3 SPACES} EH] 
{2_sPACES}&H3{5 SPACES} 
&H3(7 SPACES}NMEH3 ENF 
{SPACE} {OFF} 
PRINT" {RVS}E6 PIO 

{4 SPACES}£H3{2 SPACES} 
&HI(4 SPACES}NLE7 PIL 
PRINT" £*3(RVSJ 

{5 SPACES)M{4 SPACES} 
ku3(2 SPACES}]L 

{3 SPACES}N(2 SPACES}L 
&3 P3(2 SPACES}ENJ E*3 
PRINT" {2 SPACES)§*3 
{Rvs}{5 SPACES}M 

{3 SPACES}EH] N MEPIN 
{4 spaces}N{2 SPACESTMN 
EHIEYIP 

PRINT"{3 SPACES} (RVS} 
{6 SPACES}—H3(2 SPACES} 
LN{4 SPACES}ME2 PINEY9 
TS spaces}&2 y3P(OFF) 
{2 SPACES} { YEL} SCORE: 
{cn} 

PRINT"{3 SPACES} [RVS} 
{6 SPACES ]MEPIN 

{6 SPACES]N £@¥ 

{9 spaces)EN3 

PRINT"({3 SPACES} (RVS} 
{6 SPACES}N{2 SPACES} 
B1aRU9R6 YINE1O YI 
PRINT"(3 SPACES} {RVS}RR 
RRRROE2 Y3{7 SPACES}N 
Til spaces} {OFF} 
PRINT"{3 SPACES} (RVS} 
{5 SPACES}NE4 Y3OR4 YI0 
£2 ¥3OR2 YIME4 PZ 

{2 SPACES} {OFF} 
PRINT"(3 SPACES} (RVS) 





GR 


aq 


XF 


HS 


EB 


HK 


cs 


sQ 


PI 
DE 


880 


890 


988 


910 


920 


930 


948 


950 


968 


970 
980 


998 


1989 
18108 


1628 


1838 
1040 
1056 
1068 
1876 
1080 
16906 
11060 
1110 
1128 


1130 


1146 
1158 


1168 
1176 
1186 
11968 


1280 


{5 SPACES} &H3(4 SPACES) 
&H3(4 SPACES} EH] 

{2 SPACES]M{7 SPACES]M 
{OFF} £ 

PRINT™({3 SPACES} (RVS) 
{5 SPACES} §H3{4 SPACES} 
£HI(4 SPACES) HI 

{3 SPACES} £Y9MEPI 

{4 spaces] (OFF) £ 
PRINT"(3 SPACES] (RVS) 
E5 P3kH3(4 SPACES) RH] 
{4 SPACES} £HI{6 SPACES} 
M{2 SPACES} {OFF} £ 
PRINT"{3 SPACES}TRVS} 
BHA({4 SPACES} §H9 

(4 sPACES}§H3(4 SPACES} 
£HI(7 SPACES}M(OFF]£ 
&390k16 Y3P{CYN}"; 
PRINT" (3 SPACES} (RVS) 
£Ha(3 SPACESIN 

(5 SPACES) §HF £3 PIL 
£7 PI(OFF}£ £39kH3 

{16 SPACESTEN3(CYN}"; 
PRINT"(2 SPACES} (RVS}£ 
{4 SPACES}£3 YP 

(2 spaces) RHI £HI 

{16 sPACES}E*3{OFF} £33 
€H9(10 SPACES}EN3(CYN)" 


PRINT"({2 SPACES}(RVS} 
(7 SPACES} §*3 {OFF} 

{8 SPACES} £*3{RVS} 

{4 spaces} (OFF} &*3 
{rvs}{2 spaces} {OFF} 
B39LK16 Pa@{CYN}"; 
PRINT"(9 SPACES] §*3 
(rvs) &*3 {OFF} 

{14 SPACES} R*3{RVS}_B*9 
PRINT" {10 SPACES)&*3 
{15 SPACES}&*3({RVS} E*3 
{OFF}"; 

CX=0 : POKESP+16,0:IFF=2T 
HENGOSUB2740 : PRINTLA; 
IFF=20RRC<18THEN1009 
IFSX(RC)>255THENK=255:P 
OKESP+16, 2:CX=2 
POKESP+2, SX (RC)-K: POKES 
P+3,SY(RC) :K=0 
GOSUB1598 
IEMP=1THENYY=20 :XX=0 :G 
OSUB2450:PRINTSP$ : PRIN 
T'{uP}"; 
IFMP=2THENPRINT" {HOME} 
"TAB(60)SP$:PRINT" 
{HOME} "TAB(68); 
Y=G:R1=R 
IFANS<>""THENDA=1 
IFG=1 THENG=0: GOTO1368 
ANs=" 
IFDA=1THENRETURN 
IFF=2THEN2616 
GoT02126 

IFY>OTHEN1260 

IFAS <>" "THEN1180 
IFXZ>LEN (NBS (R))-2THEN 





IMS=MID$ (NBS (R 
),XZ,2) :NM=VAL(NM$) :PR 
INTSTS$ (NM) X= 

X=X+1 

GETAS : [FAS=CHR$ (13) THE 
NAN$=ST$ (NM) :G=1:GOSUB 
2816 :GOTO1176 
IFX<30THEN1149 
DA=1:GOTO1610 

IFAS <>CHR$ (13)THEN1200 
PRINT" {RVS}"STS$ (HM) :FO 
RX=1T0260 : NEXTX: GOTO1O 
1g 

IFAS=" “ANDAS(Y)=" "TH 
ENRETURN 





1210 IFA$<>"{RIGHT}"THEN127 
8 
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DH 
AQ 


HE 


ER 





1220 
1238 


1240 
1250 
1260 
1270 
12808 


1290 
13008 
1310 


1320 


1330 


1340 
1350 


E1360 


1370 
1380 
13908 


1400 


14106 
1420 
1430 


1440 
1450 
1460 


1470 


1480 


1490 
15808 
1510 
1520 


1530 
1546 


1550 
1560 
1576 
1586 


1596 
1600 
1610 
1626 


1636 
1646 
1650 


1660 
1670 
1680 


1690 


1706 


IFR<18ORR>22THEN12706 
POKESP+1, 250: POKESP+3, 
250:DA=1 

IFMP=1 THENMP=2 :GOTO126 
) 

MP=1 

ONMPGOTO340, 680 
IFA$=CHR$(13)THEN1330 
IFA$=CHRS (20) ANDY=OTHE 
NRETURN 

IFA$=CHR$ (26) THENPRINT 
"{LEPT} (LEPT}";:A$(¥) 
=!" sYey-1 
IF(A$<"A"ORAS$>"Z" )ANDA 
$<>" "ANDAS<>". “THENRE 
‘TURN 

IFY=14THENRETURN 
PRINTAS ; :Y¥=¥+1:A$(Y)=A 
$:RETURN 

GOSUB2810 
IFA$(Y)="_"THENY=Y-1 
FORX=1 TOY : ANS=ANS+A$ (X 
) :A$(X)="" :NEXTX 

2Y=LEN (NBS (R)) 

22-1 

22=U2+2 
MIS=MID$(NBS(R),2Z,2): 
MI=VAL (MIS) 
IFANS=STS (MI) THENR=MI: 
GoTO1560 
IF2ZZ¢ZY+1THEN1380 

P= 

FORZX=1T048: IFANS=ST$ ( 
2X) THENP=1 

NEXTZX 

U=2:W=16 
IFP=1THENGOSUB2810: PRI 
NT"({YEL}(3_ SPACES}NOT 
{SPACEJA (DOWN) 

{8 LEFT}NEIGHBOR[(CYN]}" 
OSUB2846 : GOTO1619 
GOSUB2819:PRINT"{YEL}T 
RY AGAIN{CYN}"; :GOSUB2 
840 :GOTO1010 
RSINT(48*RND(1))+1:R1= 
Rr IFR=RCTHEN1480 

HM=R: TE=INT(TI/60) 
IFMP=1ANDR ¢23THEN679 
IEMP=2ANDR> 17THEN1060 
POKESF +1, 256: POKESP+3, 
258 
IER<¢18ORR>22THEN1560 
IERC>22THENMP=2 : GOTO68: 
0 

MP=1 :GOTO340 

IFR> 22THENMP=2 : GOTO680 
IPR<23THENMP=1 :GOTO340 
IF (MP=1ANDRC> 22 )OR(MP= 
2ANDRC<18 ) THENPOKESP+3 
1250 
IFSX(R)<256THENBX=0 
IFSX(R)>255THENBX=1 
IFF=1THEN16606 
IFST(R)=OTHENST(R)=1:L 
AsLA+] :GOSUB2740 : PRINT 
LA; :GOTO1660 

IFMP=] THENXX=2 : YY=22 
IEMP=2THENXX=29 : Y¥=20 
GOSUB2456:PRINT" {YEL}A 
LREADY (DOWN} (7 LEFT}CH 
OSEN(CYN]"; :U=3:W=13:G 
0SUB2840 
IFSX(R)>255THENX2=255 
POKESP+1, 258 

POKESP, SX(R)-X2:X2=0:P 
OKESP+16,BX+CX: POKESP+ 
1,S¥(R) 
IFF=1THENGOSUB2740 : PRI 
NT"{6 SPACES}({7 LEFT]$ 
"16000-3; 
IFEA=1ANDR=HMTHENGOSUB 
2520 
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BUI 


ac 


cB 


SE 


HB 


EX 


Bo 


MB 


cq 


PS 
SP 
GK 


1710 


1726 


1730 


1749 


1758 


1760 


17708 


1780 


1790 
1800 
1816 
1820 
1836 
1846 


1856 


1866 


1876 


1880 
1890 


19998 


1910 


1926 


1938 


1948 


1950 


1968 


1970 


1986 
1996 


2000 


IFSA=1ORR<>RCTHENRETUR 
N 


GOSUB2810: PRINT" {YEL} 
(SPACE}GOT HIMI":U=5:W 
=80 : GOSUB2840:FORL=1TO 
100 :NEXTL 
GOSUB2810: PRINT" (WHT 
(SPACE}GO HOME! (CYN 
POKE2041,15:EA=1:R8=1 
R9=1:MA=1:SA=1:POKESP+ 
3,250: RETURN 
DATAWASHINGTON , OLYMPIA 
45, 55,0702, IDAHO, BOIS 
E, 95,83, 010705041009 
DATASOUTH DAKOTA, PIERR 
E, 223,80, 061904122105 
DATAWYOMING , CHEYENNE, 1 
55, 93,020503121116,MON 
‘TANA, HELENA, 140, 58,020 
40603 

DATANORTH DAKOTA, BISMA 
RCK, 220, 55, 851963, OREG 
ON, SALEM, 45,83, 0108098 
2 

DATACALIFORNIA, SACRAME 
NTO, 38,125,070913 
DATANEVADA, CARSON CITY 
170,125, 0807021013 
DATAUTAH, SALT LAKE CIT 
Y¥,113,125,696264111413 
DATACOLORADO, DENVER, 17 
@,135,10131417161204 
DATANEBRASKA, LINCOLN, 2 
30,112, 040321201611 
DATAARIZONA, PHOENIX, 10 
5,175, 0809101114 
DATANEW MEXICO,SANTA F 
E,165,175,1310111715,T 
EXAS, AUSTIN, 226,195, 14 
171822 

DATAKANSAS, TOPEKA, 235, 
140,11122617 
DATAOKLAHOMA, OKLAHOMA 
{SPACE}CITY, 247,165,11 
1620181514 
DATAARKANSAS , LITTLE RO 
CK, 57,174, 172042442215 
DATAMINNESOTA, ST. PAUL 
140,55, 06032124 
DATAMISSOURI , JEFFERSON 
CITY, 68,138, 161221274 
1421817 

DATAIOWA, DES MOINES, 44 
+93, 120319242720, LOUIS 
IANA, BATON ROUGE, 57,20 
5, 151844 

DATAMICHIGAN, LANSING, 1 
32,75,242526 , WISCONSIN 
+MADISON, $0, 75, 1923272 
1 














DATAINDIANA, INDIANAPOL 
IS,122,110,23272641,0H 
10, COLUMBUS, 153,110, 25 
41402328 

DATAILLINOIS, SPRINGFIE 
LD, 92,115, 2124254120 
DATAPENNSYLVANIA, HARRI 
SBURG, 215,180, 26403836 
2937 

DATANEW YORK, ALBANY, 2 
38,80, 2836353330, VERMO 
NT, MONTPELIER, 267,70,2 
93331 

DATANEW HAMPSHIRE, CONC 
ORD, 285,65, 333032,MAIN 
E, AUGUSTA, 305,55, 31 
DATAMASSACHUSETTS , BOST 
ON, 287,85, 2930313534 
DATARHODE ISLAND, PROVI 
DENCE, 296, 100,3335 
DATACONNECTICUT, HARTFO 
RD, 278,97,293334,NEW J 








GM 
PM 


2018 
2020 
20308 
2048 


2050 


2068 


2076 
2080 
20908 
2106 
2110 


2126 
2138 
2140 
2150 
2160 
2178 
2188 
2198 
2200 
2210 
2226 


2238 
2248 


2250 
2260 


2278 
2280 
2298 
2300 
2310 
2320 
2330 
23408 
2350 
2360 
2370 
2380 
2398 


2406 
2418 


2420 


ERSEY, TRENTON, 255,195, 
292837 
DATADELAWARE , DOVER, 252 
7118,382836 
DATAMARYLAND , ANNAPOLIS 
+ 228,118,37284039 
DATAVIRGINIA, RICHMOND, 
218,133,3840414243 
DATAWEST VIRGINIA, CHAR 
LESTON, 178,125, 2628383 
941 
DATAKENTUCKY , FRANKFORT 
138,135, 2027252640394 


2 
DATATENNESSEE , NASHVILL 
E, 140,153, 182041394347 
4644 

DATANORTH CAROLINA, RAL 
EIGH, 218,156, 42394547 
DATAMISSISSIPPI,JACKSO 
N, 98,185, 22184246 
DATASOUTH CAROLINA, COL 
UMBIA, 228,188, 4743 
DATAALABAMA, MONTGOMERY 
+ 138,185,44424748 
DATAGEORGIA, ATLANTA, 18 
5,198, 4642434548, FLORI 
DA, TALLAHASSEE, 180, 216 
14746 

RR=RC: IFEA=1THENV3=200 


8 
FORX1=1TOLEN(NB$(RR))S 
TEP2 

GETA$: IFA$<>""THENPRIN 
T" (LEFT}";:GOSUB1100 
MS=MID$(NB$(RR),X1,2): 
M=VAL (M$) :R8=1:R9=1 
V1=ABS (SY(R)-SY¥(M)) 
IFEA=QAND (RC<18ORRC>22 
) THENR8=INT (3*RND(1))+ 
1:R9=INT(2*RND(1))+1 
IFMP=1ANDM> 22THENV=255, 
~SX(R)+SX(M) :GOTO2216 
IFMP=2ANDM< 1 8THENV=SxX ( 
R)+255-SX(M) :GOTO2210 
V=ABS (SX(R) *R8-SX(M)*R 
9) 


FORXY=1TOLEN(NB$(R))ST 
EP2 


MNS=MID$(NB$(R),XY,2): 
MN=VAL (MNS ) 
IFMN=MTHENV=V-1000 
GETA$: IFAS <>""THENPRIN 
7" (LEFT)";:GOSUB1100 
NEXTXY 

PRINT" ({RVS) (OFF) 
(LEFT) "; 

V2=V+V1 1 IFV2<OTHENV2=1 
NT(4*RND(1)) 
IFEA=OTHEN2310 

IFV2 <V3THENV3=V2: RD=M 
GOTO2320 
IFV2>V3THENV3=V2:RD=M 
NEXTX1 

D=D+1 : IFD<BTHEN2120 
GETA$ : IFAS <> ""THENPRIN 
T" (LEFT}"; :GOSUB1100 
D=0:RC=RD: PRINT" 
(LEPT}";:V3=0 
IFMA=1ANDEA=1THENRC=IN 
T(48*RND(1))+1:KC=RC:M 
A=O 

POKESP+3, 250 
IFEA=OTHENJ=J+100:U=11 
W=40 :GOSUB2849 
IF(MP=1ANDRC>22)OR(MP= 
2ANDRC<18)THEN2120 
IFSX (RC) <256THENCX=0 
IFSX (RC) > 255THENCX=2:X 
3=255 

POKESP+16, BX+CX : POKESP 
+2, SX(RC)-X3:X3=0: POKE 
SP+3,SY(RC) 








HS 


PA 


cA 


ES 


ag 


FB 


FX 
FP 


car 


2438 
2448 
2450 


2460 


2470 


2480 


2490 


2500 


2510 


2520 


2530 


2540 
2550 
2560 
2578 


2580 


2598 
2600 
2616 
2620 
2638 
2648 
2650 


2660 
26708 


2680 
2698 
2708 
2710 
2728 


2738 
2746 


2758 
2760 
2778 
2788 
2790 


2808 
2818 


IFSA=1ANDRC=RTHENGOSUB 
2570 

GOT02126 
POKE781 , Y¥ : POKE782, XX: 
POKE783 , 48:SYS65520 :XX 
=0:YY=0: RETURN 
DATA168,6,2,170,0,10,1 
70,128,042,170,160,41, 
85,160,41,221,160,101, 
17,100 
DATA11,101,100,21,161 
80,21,85,80,21,1,80,5 
169,64,1,85,0,0,84, 252 
8,3, 255 

DATAG, 15,223,192, 61,85 
1240,61,85,240,63,223, 
240,127,255,244,117,23 
7,116,53 
DATA1O1, 112, 52,204,112 
17,3,64,3,87,0,0,84,0, 
9,16,84,6,1,85,8,13,85 
192,61 

DATAS5 , 240, 61,85,240,6 
3,223, 240,127, 255,244, 
117, 237,116,53,101,112 
161 
DATA221,240,15,3,192,1 
5,84,192,3,223,0,0, 252 
GOSUB2810: PRINT" {YEL) 
{SPACE} YOU WINI"; :X=X+ 
13:U=1:W=70:GOSUB2840:I 
FX<2OTHEN2520 
GOSUB2810: PRINT" (GRNJP 
RESS ANY{DOWN] (7 LEFT) 
KEY"; 

POKE198, 0 

GETA$: IFA$=""THEN2550 
RUN 
GOSUB2610:PRINT" {YEL)} 
{SPACE}GOT YOU!";:U=3: 
W=15 : GOSUB2840 : POKESP+ 
21,2 
IFJ<199GOTHENGOSUB2740 
:PRINT"(6 SPACES} 

{6 LEFT) 0"; 
FORX=1101500 :NEXTX 
GoT02530 

POKESP+3, 250 

GETAS : TM=SC-(INT(TI/60 
)-TE) 

IFMP=1THENPRINT" {HOME} 
(23 DOWN) "TAB (28); 
IFMP=2THENPRINT " {HOME} 
(17 DOWN} "TAB( 30); 
PRINT" TIME: "TM" (LEFT) 
{SPACE} "; 
IFTM=6THEN2760 

IFMP=1 THENPRINT" {HOME} 
{26 DOWN} "TAB(Y); 
IFMP=2THENPRINT " {HOME} 
{DOWN} "TAB(20+Y) + 
IFRA<4THENPRINT"({RVS) 
{SPACE} (OFF) (LEFT)";:R 
A=RA+1:GOTO2716 

PRINT" (LEFT)";:RA=O 
IFA$=""THEN2620 

PRINT" {LEFT}" 
1968 

GoT02618 
IFMP=1THENXX=13:YY=23: 
GOSUB2456 : RETURN 

XX=33 :Y¥=13:GOSUB2450: 
RETURN 

IFMP=1THENXX=1 :Y¥=22 
IFMP=2THENXX=29 : Y¥=26 
GOSUB2816:PRINT"{YEL}T 
IME IS UP" 

WX=WX+1 :U=1:W=15 :GOSUB 
284G : IFWX<15THEN2780 
GOTO2536 
IEMP=1THENXX=1 :Y¥=22:G 
0702830 

















XX=29:Y¥=20 

GOSUB2450: PRINT" 

{10 spaces} {DOWN} 

(10 LEFT) {16 SPACES} 
{up} (10 LEFT)"; :RETURN 
FORS=1TOU : POKEN+24,15: 
POKEN+6 , 247: POKEN+4,17 
+ POKEN+1,W 

FORQ=1T030 :NEXTQ: POKEN 
+4,16:NEXTS: RETURN 





AQ 2820 
GI 2838 


MQ 2846 


SB 2850 





BEFORE TYPING ... 
Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 











Give ’N’ Take 


Article on page 25. 


Program 1: Give ‘N’ Take 


BE 10 REM COPYRIGHT 1987 COMPU 
TE PUBLICATIONS INC. - 
{SPACEJALL RIGHTS RESERV 
ED 
PRINT" (CLR) &83CHECKING D 
ATA" :FORI=0T016: READAS :N 
EXT 
FORI=1T0772:READA:X=X+A: 
NEXT: IFX<>50410THENPRINT 
“DATA STATEMENT ERROR.": 
STOP 
SD=54272:FORI=SDTOSD+23: 
POKEI, @:NEXT: POKESD+24, 1 
5 


CA 20 


MR 30 


KP 40 


CM 5@ DIMA$(18),P(70),OFF(70), 
XX (70), Y¥(78),NP(78),CP( 
70,7),PI(2,18),TEMP(78) 
DIMHO(7@) , OH(70) 
RESTORE : POKE53280, 6: POKE 
53281, 6 :GOSUB1560 :GOSUBL 


260:TX=12:TY=14:GOSUB123 
8 


xs 
PR 


68 
70 


PRINT" (RVS)1(OFF} OR 
{RVS}2{OFF} PLAYERS 
{HOME} ":GOSUB1248:C64=C: 
IFC=2THEN110 
F2=0:TX=6 : TY=16 :GOSUB123 
O:PRINT"COMPUTER FIRST 
(Rvs}1{OFF} OR SECOND 
{RvS}2{ OFF) (HOME}" 
108 GOSUB1246 :CP=C-1 :GOTO12 
8 
110 TX=11:TY=16:GOSUB1230:P 
RINT" (RVSJ1 {OFF} OR 
{Rvs}2{OPF) JOYSTICKS 
(HOME) " :GOSUB1240 :F2=C- 
1 


cA 86 


PK 98 








PE 


BS 120 TX=6:TY=24:GOSUB1230:PR 
INT"(4 SPACES}DEFINING 
{ SPACE} CHARACTERS 

{5 SPACES} {HOME}" 
CL(8)=3:CL(1)=14:PL=8:M 
ES$(3)="(RVSJ1{OFF}] OR 
{SPACE} {RVS)}2{oOFF) Joys 
TICKS" 

AN=43 : FORI=0T010 : READNS 
(1)sNEXT:DATA " ",1,2,3 
14,5,6,6,8,9,18 
MES$(1)="(2 SPACES}DESI 
GNING BOARD{3 SPACES}": 
MES$(2)="{2 SPACES}DIVI 
DING PIECES" 
WI§(0)="{RVS}RB9 

(9 SPACES)PLAYER 1":WI$ 


138 





AQ 140 


cs 158 


SD 166 





Ho 
oR 


Mo 


KF 


kQ 


Gg 


BD 


PA 


aM 


Pc 


ED 


DK 


DR 


HG 


QB 


SK 


BH 


BK 


DX 


AQ 
EP 


KE 


178 
186 


190 


208 


210 


220 


230 


248 


250 


260 


278 


280 


298 


3008 


310 


328 


3308 


348 


358 


368 


378 
388 
398 


400 
410 


420 


430 


(1)="{RVS}&83(9 SPACES} 
PLAYER 2" 
FORI=1T07@ : READNP (I) :NE 


1T078 : FORX=1TONP (I 
) sREADCP(I,X) :NEXTX, I 
DATA 2,12,1,3,12,13,14, 
2,4,14,3,5,14,15,4,6,15 
+16,5,7,16,6,8,17,18 
DATA 7,9,18,19,8,19,19, 
8,9,11,26,16,20,1,2,13, 
21,22,12,14,2,22,23 
DATA 2,3,4,13,15,23,24, 
4,5,14,16,24,5,6,15,17, 
26,7,16,18, 26,27 

DATA 7,17,19,27,28,34,8 
19,18, 28, 28,10,11,19, 28 
136,12,22,29,37 

DATA 12,13,21,23,29,13, 
14,22, 24, 30,31, 41,14,15 
+23,25,26,31,24,26,31,3 
2 

DATA 25,24,17,16,27,32, 
26,17,18,33,34,18,19, 20 
135,21,22,38,37,38,40 
DATA 23,29, 40,41, 23,24, 
25,32,41,42,43,25, 26,31 





133,43 

DATA 27,32,34,43,44,18, 
27,33,35,44,45,28,34,36 
145,46 

DATA 20,35,46,47,21,29, 
38,48,29,37,39,48,38,40 
149,50,29,38,39,41,56 
DATA 23,30,31,40,42,52, 
31,41,43,52,53,54,31,32 
33,42,44,54,55 

DATA 33,34,43,45,55,56, 
34,35,44,46,56,58,35, 36 
145,47,58,36,46,59,37,3 
8,49 

DATA 60,61,39,48,58,61, 
39,40,49,51,52,62,50,52 
,53,62,63,41,42,50,51,5 
3,42 

DATA 52,51,54,63,64,42, 
43,53,55,64,43,44,54,56 
64,67 

DATA 44,45,55,57,58,67, 
56,58,67,68,69,45,46,56 
157,59,69,47,58,69 
DATA 48,61,48,49,68,62, 
50,51,61,63,51,53,62,64 
+65 

DATA 53,54,55,63,65,66, 
67,63,64,66,64,65,67,68 
+55,56,64,66,57,68 


DATA 66,67,57,69,57,58, 
59,68,70,69 
TY=24 :TX=16 :GOSUB1230:P 





RINTMES$(1)" (HOME}" 
"EIQ"+CHRS$(8)+"BX9< 
"+CHR§ (3)+"B29XT"+CHRS ( 
16 )+CHR$ (248)+"LEBIET3" 
+ POKES35,0 

POKE5S3272, PEEK(53272)AN 
D2400R12 
POKE836 , 208: POKE830,0:P 
OKE831, 216 : POKE828,8:PO 
KE829, 56: POKE56334,0 
POKE1, 51 :ML$=MLS :SYS (PE 
EK(51)+256*PEEK(52)) :PO 
KE1, 55: POKE56334,1 
FORI=12568T012663 :READT 
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EP 449 


45) 


3 


460 


470 


480 


490 


JI 501 


8 


RS 516 


52 


8 


JH 53 


8 


540 


FS 556 


568 


576 


588 


AS 590 
MC 606 
616 


620 
630 


MC 6468 


AG 650 





+POKEI,J:NEXT 
DATA G,126,126,126,126, 
126,126,126,126,126,126 
+126,126,126,126,8 
DATA 6, 254, 254,254,254, 
254, 254,8,8,127,127,127 
7127,127,127,8 

DATA 126,126,126,126,12 
6,126,126,126,0, 255,255 
1255, 255,255, 255,0 
DATA @,127,127,127,127, 
127,127,127,0,254,254,2 
54,254, 254,254, 254 
DATA 254, 254,254,254,25 
4,254,254,0,127,127,127 
+127,127,127,127,8 
DATA 127,127,127,127,12 
7,127,127,127,254,254,2 
54,254,254, 254,254, 254 
AS(1)=")(DOWN} (2 LEFT} 
$"sA$(2)="&* [DOWN] 
{LEFT} $":A$(3)="#{powN} 
{LEFT}, 8" :A$(4)="# 
(pown} (2 LEPT}&+" 
AS(5)="#(DOWN}(2 LEPTJ}& 
{Rvs} (orr)%{pown) 

{2 LEPT)$":A$(6)=")* 
{Down} (2 LEPT},+":A$(7) 
="¢(DOWN) (LEPT}' (DOWN) 
{LEFT}$"sA$(8)="6(8" 
AS$(9)="#(DOWN} {2 LEFT} & 
{RVS}€@3(OFF}3":A$(10)= 
"&{RVS}&T3(OFF}% {DOWN} 
{2 LEPT}$":A$(11)="# 
{DOWN} {LEFT} ~% (DOWN} 

{2 LEFT}$":A$(12)="4 
{DOWN} (2 LEPT}&. (Down) 
{LEFT}$" 

AS(13)=")(* (DOWN) 

{3 LEFT}$(RIGHT}$":A$(1 
4)="#(DOWN} {LEFT}, (+ 
{LEFT} {UP}#":A$(15)=")% 
{Down} (2 LEFT} * {pow} 
{LEFT} ,%" 

AS (16 )="&* (DOWN) (LEFT)! 
{Down} (2 LEPT}a+":A$(17 
)="#{DOWN) (LEFT) -* 
(pown} (2 LEFT), (Rvs) &@3 
{OFF}":A$(18)=") (RVS} 
&T3(OPF}%(DOWN) (3 LEFT) 
-+{DowN} {2 LEPT}$" 
FORI=1T076:OFF(I)=2:NEX 
T:FORI=1T076:READP(I):N 


EXT 

DATA 1,5,8,4,1,1,9,18,1 
116,7,6,4,7,8,3,2,7,3,1 
8,11,2,13,10,1,10,2,8 
DATA 6,4,17,6,7,5,18,12 
1741,4,2,7,10,7,9,6,15, 
ORO DRED TICS) 6,2, 


DATA 10,4,8,2,3,14,8,3, 
2,5,9,18,4 
FORI™1T070 : READXX (I), YY 
(1) :NEXT 

DATA 101,86,117,86,125, 
86,149,86,157,86,173,86 
+189,86,197,86,213,94,2 
21,86 

DATA 237,86,101,102,125 
102,133, 94,141, 162,165 
194,181, 102,197, 102,205 
1102 

DATA 221,116 

DATA 161,118,169,118,12 
5,118, 141,116,157,118,1 
65,1108 

DATA 161,118, 205,118,106 
9,134,133,126,149,126,1 
65,126 

DATA 181,126,197,126,20 
5,126, 237,118,161,142,1 
69,156,125, 150 
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xQ 


668 
678 


680 


690 


700 


748 


930 


9408 


950 
960 


970 
980 


990 


DATA 125,142,141,134 
DATA 149,150,173,142,18 
9,142,205,142,221,134,2 
29,142,101, 166,117,166 
DATA 133,158,141,166,14 
1,158,157,166,165,158,1 
81,158,197,158, 213, 166 
DATA 213,158, 237,158,180 
1,190,117,182,133,182,1 
49,182,165,174,173, 182 
DATA 181,182,197,166, 20 
5,182,221,174,236,182 
GOSUB1230: PRINTMES$(2)" 
{HOME}" 
FORI=1T076:TEMP(I)=1:NE 
XT:FORX=@TO1 : FORZ=1T035 
I=INT(76*RND(1))+1:IFTE 
MP(I)=OTHEN730 
TEMP(I)=O:PI(X,P(I))=PL 
(X, P(1) )+1 sNEXTZ,X 
POKE53280, 15:POKE53281, 
15:GOSUB1290 

V=53248: POKEV+21, 4: POKE 
2042,13 
FORN=0T062 : READSP : POKES 
324N, SP:NEXT: POKEV+41, 1 
DATA 9,0,6,0,0,0,0,0,0, 
6,8,6,6,0,0,0,3,192,0,7 
1 224,8,15,248,0,15,248 
DATA 8,15,240,0,7,224,0 
13,192,8,8,0,8,0 ,0,0,0 
8,8,8,6,8,0,0,8,0,0,0, 
6 


DATA 8,6,8,8,0,0,8,237 
PRINT" {HOME} (DOWN) "SPC( 
17)MES$(6) :GOSUB1266:GO 
SUB1076 
IPC64=1ANDPL=CPTHEN1599 
JY=15-( PEEK (56320+PL*F2 
)AND15) : FR=PEEK(56320+P 
L*F2)AND16 
IPJY=8THENAN=AN+1 
IFJY¥=4THENAN=AN-1 
IPAN=0THENAN=76 
IPAN=71THENAN=1 
IFFR=OTHENIGO 

POKEV+4 , XX(AN) : POKEV+S, 
YY (AN) :GOTO836 
IFOFF(AN)<>2ORPI(PL, P(A 
N) )=OTHENGOSUB1670:GOTO 


830 

PI(PL, P(AN))=PI(PL,P(AN 
))-1:TU=TU+1 
POKE646,CL(PL) :OFF(AN)= 
PL: QQ=AN:GOSUB1190:SC(P 
Bec sPRINTAS$(P(A 
N 

PORI=1TONP (AN) :QQ=CP (AN 
11): IPOPF(QQ)=20ROFF (QQ 
)=PLTHEN968 

LP=-PL+1 :GOSUB1196:SC(L 
P)=SC(LP)~1:SC(PL)=SC(P 
L)+1:PRINTA$(P(QQ)) 
OFF(QQ)=PL 

NEXT: PL=~PL+1 :GOSUB1690 
:GOSUB1200 : IPTU=76THENG 
0SUB1070:GOTO980 
GOTO816 

GOSUB1710:TY=22 : POKEV+2 
1,6:PL=1:IFSC(G)>SC(1)T 
HENPL=@ 
IFGT=@THENPL=-PL+1 


1080 WI$(PL)=WI$(PL)+" IS T 


1010 


1626 


1638 


HE WINNER " 

IPSC(8)=SC(1)THENWES(P 
L)="g83(RVS} 

{15 SPACES)IT'S A TIE 
{7 spacEs}" 

TX=9 :GOSUB1236 :PRINT" 
&83" WI$(PL) :FORI=1T05 
6:GOSUB1050:NEXT: TX=8 
GOSUB123@: PRINT" {RVS}P 
RESS FIRE TO PLAY AGAI 





ED 


Fc 


RD 


cc 


QA 


PF 


JE 


FG 


Dx 


DX 


SP 


Qk 
DE 


Pp 


QP 


Qs 


ES 
KP 


HG 


1048 
1058 


1068 
1076 


1088 


1698 


1108 


1110 


1126 


11306 


1148 


1158 


1166 


1176 


1188 


1198 


1200 
1218 


1226 


1230 


1240 


12508 
1266 


1276 


N"sFORI=1T050 :GOSUB1O5 
O:NEXT 

GOTO1828 

FR=PEEK (56320 )AND16:RF 
=PEEK (56321 )AND16:IFFR 
=GORRF=OTHENRUN 

RETURN 

PRINT" (HOME) (6 DOWN) 
(Rvs) §83( RIGHT} "NS (PI( 
8,13))"{3_ RIGHT) "NS (PI 
(8,14))"(2 RIGHT) "NS(P 
1(6,7))sPC(23); 
PRINTN$(PI(1,13))" 

(3 RIGHT] "N$(PI(1,14)) 
"{2 RIGHT}"N$(PI(1,7)) 
PRINT" (3 DOWN) {(RVS) "NS. 
(P1(6,16))"(2 RIGHT) "N 
$(PI(6,15))"(3 RIGHT) 
{uP} "N§(PI(8,16))sPC(2 
3)" (DOWN) "+ 
PRINTNS(PI(1,16))" 

(2 RIGHT} "N$(PI(1,15)) 
"(3 RIGHT) (UP}"NS(PI(1 
718)) 

PRINT" {3 DOWN} (RVS) "NS. 
(PI(0,1))"(3 RIGHT) "NS 
(PI(0,2))"(2 RIGHT) 
{up} "N$(PI(0,9))SPC(23 
)"{ DOWN) "3 
PRINTN$(PI(1,1))" 

(3 RIGHT) "N$(PI(1,2))" 
(2 RIGHT} (UP) "N$(PI(1, 
9)) 


PRINT" {3 DOWN] {RVS}"N$ 
(PI(G,3))"(2 RIGHT} "NS 
(PI(8,4))"(2 RIGHT) "NS 
(P1(8,18))SPC(24)7 
PRINTN$(PI(1,3))" 

{2 RIGHT}"N$(PI(1,4))" 
(2 RIGHT}"N$(PI(1,18)) 
PRINT"({4 DOWN} {RVS} "NS 
(PI(8,11))"(3 RIGHT} "N 
$(PI(G,12)); 

PRINT" {2 RIGHT} "N$(PI( 
6,17))"{3 RIGHT} "NS (PI 
(6,5))"(3 RIGHT) "NS (PI 
(8,8))"{uP}{2 RIGHT) "N 
$(PI(8,6))+ 

PRINT" {RIGHT} "N$(PI(1, 
6))"{DOWN} {2 RIGHT) "NS 
(PI(1,8))"{3 RIGHT} "NS 
(PI(1,5))"{2 RIGHT)"; 
PRINTNS$(PI(1,11))" 

{4 RIGHT}"N$(PI(1,12)) 
"(2 RIGHT) "N$(PI(1,17) 
)" {HOME} ": RETURN 
‘TXSINT(XX(QQ)/8)-1:TY= 
INT(Y¥(QQ)/8)-5:GOSUBL 
230:RETURN 
PC=1:IFPL=@THENPC=3 
POKE646, PC: PRINT" 
{HOME} {Down} {Rvs} 

{2 RIGHT}PLAYER 1(RVS} 
£89(2 RIGHT} (2 SPACES} 
(3 LEFT}"Sc(6):PC=1:IF 
PL=1THENPC=14 
POKE646, PC: PRINTTAB( 26 
)" (UP) (RVS]PLAYER 2 
{Rvs} §89{2 RIGHT} 

{2 SPACES} (3 LEFT}"sc( 
1)" ":RETURN 
POKE783,@:POKE761,TY:P 
OKE782, TX:SYS65520:RET 


URN 
POKE198 ,:WAIT198,1:GE 
TC$:C=VAL(C$):IFC<1ORC 
>2THEN1240 

RETURN 
POKE198,:WAIT198,1:GE 
TC$: IFC$<>"G"ANDC$<>"T 
“THEN1260 

MES (6 )=" (RVS) TAKE" :GT= 
1: IFC$="G"THENMES$ (6)=" 








KS 
HH 


EB 


DQ 


xP 


oB 


so 


MR 


JR 


BQ 


1288 
1298 


1300 
1318 


1328 


1330 


1348 


1350 


1360 


1376 


1380 


1398 


1400 


1416 


{RVS}GIVE":GT=0 
RETURN 
PRINT" (CLR) ({RVS} £89 
{63 SPACES}"; 
PRINT"(65 SPACES}"; 
PRINT" (CYN} (OFF} #583 
{rvs}(36 SPACES) &73 
Corr) #{cyn}) (*k8a{Rvs} 
(cyn} (Orr) #&84(RVS} 
{cyn} (OFF) #£84{RvS} 
(cyn) (OFF) 'g89{Rvs} 
{pur}{2 SPACES)"; 
PRINT"({18 SPACES} £89 
E7a{oFF}) (*89{RVS} 
E79(OFF}#k89{RVS} £79 
{orr}#g8a{Rvs} £73 
{orr}' (cyn}$&89(RVvS) 
{cyn} (OFF }$€84(RVS} 
{cyn} (OFF), (+884(RVS) 
{space} (cyn} (OFF}$£83" 


PRINT" {RVS} (PUR} &54 
{OFF} )8#&(8#)%)B#& 
(Rvs) 873 (OFF) %&*#{PUR} 
(Rvs} 889 &74(OFF}$E89 
{rvs} 873(0FF)$E8a 
(rvs} §73{(orF), (+884 
{rvs} &79(oFrF}$ {Rvs} 
883(10 SPACES)"; 
PRINT" {PUR] &59{OFF}$& 
{RVS) [OFFJS#&+S#S& 
(Rvs} G3 (OFF }3$)%"" 
{pur} (RVS} 889 

(20 SPACES}(PUR} B59 
{OFF)})*$#'&(%,8&*"; 
PRINT" ##$&+$ (PUR) [RVS) 
&83(10 spaces) (CYN) 
{orr}&*g8a(RVS} [cyN) 
{orr})#&8a(Rvs} {cyn)} 
{OFF} &(RVS}RTI(OFF}® 
kea(Rrvs} (PUR) 853 
{OFF}, +&+$&{RVS}ET9 
{OFF} ta (RVS}RTALOFF}8$ 


aiid 

PRINT" 8&(RVS}RTI(OFF)% 
{pur} (RVS} &89 £74 
(ofr) &*B83(RVS} 879 
forr})eg8a{rvs} &73 
(OFF) &(RVS}BT9(OFF}* 
ke3{Rvs} (CYN} OFF)" 
gea{rvs} {cyn} (OFF}* 
kaa{Rvs} "> 

PRINT" (2 SPACES} (CYN) 
{orr} $g83{Rvs) 

{2 SPACES}{PUR) B54 
COPF)#&*) (*$) BS 6*S& (8S 
#(puR}(RvS} £89 

{2 SPACES} &79(OFF)'§83 
{rvs} &79(OFF)'&84 
(rvs}(3 SPACES)£73 
{orr}$geg{rvs} (cyn} 
{OFF} &+884(RVS) {Cyn} 
(oFF)"; 
PRINT", 8889 {RVS} 

{5 spAces}(PuR) &549 
(oPF)-8$$#S#5) *#5#& 
{Rvs} £T9(OFF}%&. [PUR] 
{rvs} §83 E79(OFF}&+ 
Bsa{Rvs} &79{OFF}, $889 
{Rvs} {4 SPACES}"; 
PRINT"{16 SPACES} {PUR} 
ESR(OFF}S$)*at+#-*,+'6 
{Rvs} (OFF}%"; 
PRINT"$)%$ {PUR} (RVS} 
B83{17 Spaces} (cyN} 
(orr} #£83(Rvs) 

{2 SPACES}{PUR} £53 
{OFF} #,+6*', (RVS}E@I 
{orr}#$#$)*'&*([PUR} 
{rvs} &89{5 SPACES}"; 
PRINT" {3 SPACES}§73 
{opr} #ksa(Rvs} {cyn} 





HD 


SG 


AR 


PK 


MK 


EG 


EB 


xc 


RG 


1426 


1438 


1440 


1458 


1468 


1478 


1480 


1498 


1506 


1516 


1520 


{orr})8g84(Rvs} {Cyn} 
lorrja*ksa(Rvs} {cyn} 
{orr}&{Rvs}E@3{OFF}% 
Esa(Rvs} {PUR} £59 
{orF}')%#$$&(RVS} 
(orF}3"; 

PRINT" '&{RVS}EGA(OFF)% 
++, %${(PUR}(RVS) 89 
&73(OFF})k8a(RVS} B79 
{orP}&*kB4a(RVS} 874 
(orr}a {Rvs} &@3{OFF}% 
{cyn}$£83(RvS) 

{3 SPACES} {CYN} (OFF}$" 


PRINT" &84(RVS} 

{5 SPACES}{PUR) B53 
(OFF) $S&+#&* SHS) *E*K 
{rvs} §ra (Orr) %#{PuR) 
(Rvs} 889 B79 (OFF) $E69 
{rvs} (3 SPACES}&73 
(orr)$&8a(Rvs} 

{14 SPACES) (PUR) £53"; 
PRINT" {OFF} )8#&-#S#,8, 
+#$#$6+(PUR}(RVS} £89 
{16 SPACES} (CYN} {orF}) 
{rvs} 873 (OFF) %&849(RVS)} 
(pur) §53{0FF} '&({RvS} 
BQI(OFF}8S'&.6( 8"; 
PRINT"&(RVS) (OFF}%') 
{Rvs} 873 (OFF) (PUR) 
{Rvs} &83{7 SPACES}E73 
{orr}) (RvS}BTA(OFF)}% 
{cyn) #€84{RVS} 

(3 spaces} (cYN} {OFF} # 
g8a(Rvs} (cy) (OFF}-+ 
&89{RvS}(2 SPACES)"; 
PRINT" {PUR} B59{OFF),% 
G*ESESHEG*SHS—+4( PUR} 
{RVS} §84 &73(OFF} #889 
{Rvs} (3 SPACES)"; 
PRINT"B79 (OFF) #289 
{Rvs} §73{OFF}-+£89 
{rvs} (cyN) (OFF}, £84 
{rvs} (Cyn) (OFF}&+884 
{rvs} (cyn) (OFF}$&89 
{rvs} (3 spACES) (PUR} 
BSI(OFFJG(8S,8, (+"7 
PRINT", 8$&{RVS}E@4 
(oPF) %$a+{PUR} {RVS) 
683 B79(OFF), 8849(RVS} 
B73 (OFF}a+k84(RVS} 
£73 (OFF) $&84(RVS} 

{7 SPACES} "+ 

PRINT" {5 SPACES) {PUR} 
(20 spACES)—83 

(39 spaces)"; 

PRINT" {11 SPACES) (CYN} 
(orr}#k8a(Rvs} 

{3 spaces) (CYN} (OFF) # 
kea(Rvs) {cyn} {orr}# 
Esa(Rvs}{4 spaces} 
{crn} (oFF} #g84(RVS} 

{5 SPACES} (CYN} [OFF})* 
g89(RvS) &79(OFF})*889 
{rvs}{3 SPACES)"; 
PRINT" {2 SPACES}&79 
{ore} #88a(Rvs} 

(2 SPACES}&79(OFF} #883 
{Rvs} {4 SPACES) £73 
{orr}#&83{RVS} 874 
Corr} #&8a(Rvs} 

{2 spaces} {CYN} (OFF}-% 
Bea(Rvs} {cyn)} (OFF}&. 
kea{rvs} (cyn) (orFr}-* 
Be4(RVS}{2 SPACES)"; 
PRINT" (CYN} (OFF}&{RVS} 
{orr}%&89(RvS} 

{4 spaces} {cyN} {OFF],+ 
kea(Rvs} &79(OFF}, +889 
{Rvs}{4 SPACES}E73 
{orr}&(RVS} (OFF}%E8a 
{Rvs} §73{OFF}-8&89 
{Rvs} (2 SPACES}&73 





xP 


sc 


SK 


DE 


1530 


1548 


1558 


1566 


1576 


1586 


1598 
1600 


1618 
1620 
1638 


1646 
1650 


1668 
1678 


1688 


1698 


1788 


1716 


17268 


1738 
1749 


{OFF}&": 

PRINT" .R849(RVS} &73 
{orF}-*k84(RVS} (cyn} 
{orr}$g8a{Rvs} 

(3 SPACES} (CYN} {OFF}$ 
Rea(Rrvs} (crn) (orF), 
(Rvs) £@3 OFF} %£83{RVS} 
(2 spaces) (cyn} (OrF}$ 
Baa(Rvs}(2 spaces) 
(cyn) (OFF) &(%&89(RVS} 
(3 SPACES)"; 

PRINT" {2 SPACES}&74 
(Orr }&(8£83{RVS} 

{2 spaces} £79(OFF}$§83 
(rvs} (2 spAcEs}&74 
(orr}$&89(Rvs} 

(4 SPACES) E79{(OFF}$§83 
{rvs} &79{0FF}, (Rvs) 
Baa (OFF) &&83(RVS} 

(24 spaces)"; 

PRINT" {15 SPACES) 
{HOME} ": POKE2023,168:P 
OKE56295, 15: POKE53281, 
6: RETURN 

PRINT" {CLR} (2 SPACES}C 
OPYRIGHT 1987 COMPUTE! 
PUBLICATIONS" 
PRINTTAB(9)"ALL RIGHTS 
RESERVED" 
TY=12:TX=13:GOSUB1230: 
PRINT" (RVS}G(OFF}IVE 0 
R (RVS}T(OFF}AKE(HOME} 
"sRETURN 

MT=0 : FORI=1T076:HO(I)= 
@:NEXT: FORI=1T070 
IFOFF(I)<>2ORPI(PL,P(I 
)) =OTHEN1626 
HO(I)=1:MT=MT+1 

NEXT 

MV=@ :FORZ=1T076 : IFHO(Z 
)=1 THENMV=MV+1 : OH (MV )= 
z 


NEXT 

NAINT (MT*RND(1))+1:AN 
=OH(NA) : IFOFF(AN) <>20R 
PI(PL, P(AN) )=OTHEN1650 
POKEV+4, XX (AN) : POKEV+5 
+Y¥(AN) :GOTO916 
POKESD+5, 31: POKESD+6, 2 
98: POKESD, 240: POKESD+1 
4: POKESD+4, 33 
FORS=1T0100 :NEXT:GOTO1 
708 

POKESD+5 , 8: POKESD+6 , 24 
8: POKESD, 0; POKESD+1, 90 
+POKESD+4, 17 

FORS=1 T0100: NEXT: POKES 
D+4,0sPOKESD, 0: POKESD+ 
1,0:RETURN 

PRINT" {HOME} (3 DOWN) 
(rvs}£89(40 SPACES)"; 
FORI=1T016 

PRINT" (RVS}(9 SPACES)" 
SPC(22)"(9 SPACES)"; :N 
EXT 

FORI=1T04: PRINT" (RVS} 
{40 SPACES)"; :NEXT 
PRINT" {RVS} (39 SPACES) 
{HOME} {DOWN} {2 RIGHT} 
B89PLAYER 1{BLK}":RETU 
RN 


Program 2: Give ’N’ Take Loader 


cB 18 
PF 20 
KQ 36 


PK 40 
KC 58 


PRINT" (CLR} (3 DOWN) POKE4 
4,64: POKE16384,0:NEW" 
PRINT" (2 DOWN} LOAD"CHRS ( 
34)"GIVE 'N' TAKE"CHR$(3 
4)",8" 

PRINT"{4 DOWN}RUN" 
PRINT" (HOME}" 
POKE198 , 3: POKE631,13:POK 
£632, 13:POKE633,13 
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BEFORE TYPING .. . 


refer to “How To Type In 


Multisprite 


55 before typing in. 


Program 1: Multisprite 


8000:A9 OC AQ 
8008:21 DB 
8010:00 BD 
8018:FF EB 
8620:20 20 
8628:20 20 
8930:55 4c 
8038:54 45 
8840:20 20 
8048:43 4F 
8050:54 20 
8058:4F 4D 
8060:50 55 
8068:43 2E 
8670:28 20 
8078:20 52 
8080:52 45 
8088:2E OD 
8090:20 
8098:20 
BOA: 4E 
BOA8:4F 
8OBG:20 
80B8:9E 
86C0:00 
80C8:008 
BODO:E4 
80D8:4E 
BOEO: 24 
80E8:6D 
BOF0:00 
80F8:31 
8100:6E 
8108:84 
8110:C9 
8118:FO 
8126:Cr 
8128:07 
8130:03 
8138:62 
8140:4B 
8148:0D 
8150:A9 
8158:81 
8160:C9 
8168:4c 
8170:89 
8178:9F 
8180:00 
8188:D0 
8190:04 
8198:63 
B1A6:65 
81A8:84 
81B0:FC 
81B8:0A 
81CO:FB 
81C8:0A 
81D8:4C 
81D8:69 
81E0:81 
81E8:BD 
81FO:D0 
81F8:10 
8200:AE 
8208:FC 
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Before typing in programs, please 


COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 





See instructions in article on page 





8210:DE 
8218:D8 
8220:D0 
8228:69 
8238:BC 
8238:84 
8240:84 
8248:41 
8250:41 
8258:01 
8260:A9 
8268:60 
8270:FO 
8278:E0 
8286:39 
8288:68 
8290:EE 
8298:84 
82A0:84 
82A8:84 
82B0:84 
82B8:41 
82C0:84 
82C8:83 
82D0:01 
82D8:39 
82E6:00 
82E8:00 
82F0:84 
82F8:62 
8300:84 
8308:D8 
8310:D8 
8318:6B 
8320:38 
8328:C8 
8330:84 
8338:05 
8340:84 
8348:01 
8350:5E 
8358:0D 
8360:84 
8368:84 
8370:A9 
8378:C9 
8380:20 
8388:60 
8390:84 
8398:68 
83A0:68 
83A8:06 
83B0:08 
83B8:A2 
83C0:08 
83C8:21 
83D0:A2 
83D8:E8 
83E0:3E 
83E8:E8 
83F0:AD 
83F6:18 
8486:08 
8408:84 
8410:A9 
8418:D8 
8420:C8 
8428:D0 
8430:A8 
8438:60 
8448:1C 
8448:00 
8456 :00 
8458:08 
8460:00 
8468:00 


oo 
oo 


Program 2: Multisprite Boot 
Program 


QH 10 
SX 20 


BH 30 


PRINT" {CLR} {WHT} {DOWN}LO 
ADING MULTISPRITE..." 
IFA=OTHENA=1 : LOAD"MULTIS 
PRITE",8,1 

PRINT" (DOWN]LOADING SPRI 











TE MAGIC..." 
GQ 40 IFA=1THENA=2:LOAD"SPRITE 


MAGIC", 8,1 


FC 58 PRINT"{2 DOWN}SYS32768 
{3 uP)" 
DB 60 POKE631,13:POKE198,1:NEW 


Exploring The SID 
Chip 


Article on page 22. 


Complex Sound 
BE 1@ REM COPYRIGHT 1987 COMPU 


CH 


1008 


118 
120 
130 
140 
158 
168 
176 
188 
198 
208 
210 
220 
2308 
240 
2508 


268 


TE PUBLICATIONS INC. - 
{SPACEJALL RIGHTS RESERV 
ED 

ADR=49152:CHK=0:C=0 

READ BYT:IF BYT=999 THEN 
66 

POKE ADR, BYT:C=C+1 :ADR=A 
DR+1 
CHK=C+BYT+CHK : GOTO30 

IF CHK<> 12604 THEN160 
SYS 49152 

FOR J=1 TO 5000:NEXT 
POKE 54276,0:POKE 54283, 
@:POKE 54290,0:END 
PRINT" (CLRJERROR IN DAT 
A STATEMENTS. CHECK TYP 
ING." 

DATA 162,024,169, 000,15 
7,008 

DATA 212, 202,016,250,16 
2,024 

DATA 189,064,192,157,00 
@, 212 

DATA 202,016,247,126,16 
9,038 


DATA 141,020,003,169,19 


2,141 
DATA 021,003,088, 169,00 
8,133 
DATA 803,096,165,003,05 
6,233 
DATA 629,133,003,141,00 
1,212 
DATA 173,028, 212,141,602 
2,212 
DATA 074,074,074,074,14 
1,015 
DATA 212,076,049, 234,00 
6,000 
DATA 000, 000,129,013, 00 
8,001 
DATA 036,000,000,621,01 
3,008 
DATA 000,004,000 ,007,06 
5,012 
DATA 086,000 ,000,247,06 
3,065 
DATA 612,006,000,000,24 


7,063 
PF 278 DATA 999 


80-Column Sector 
Editor 


Article on page 57. 


Program 1: Sector Editor Boot 
Program 


1901 


191 
102: 
1631 


8 REM"(3 SPACES}LOADER F 
OR SECTOR-128 

6 REM 

9 GRAPHICS 

9 AS="RUN"+CHRS (13) 








cG 
EG 


1048 
10658 


1060 
1078 


10808 
1096 


1108 
1116 
1126 


WINDOWS, 8,79, 24,1 
PRINTCHRS (147) ;CHRS(28 
) CHR$(14);"LOADING SE 
CTOR-128, PLEASE WAIT. 
POKE46 , 34: POKE8704,0 
DLOAD"SECTOR. BAS", U( PE 
EK(186)) 
FORA=1LTOLEN (AS) 
POKE841+A, ASC(MID$(A$, 
A,1)) 

NEXTA 

POKE2@8 , LEN(A$ ) 

NEW 


Program 2: Sector Editor—BASIC 
BQ 18 REM"COPYRIGHT 1987 COMPU 


KR 
JB 
KC 


HQ 


TE! PUBLICATIONS, INC. — 
ALL RIGHTS RESERVED 





26 TRAP 4726 

30 FAST 

40 IFPEEK(46)<>34 THEN BEGI 

N 

50 PRINTCHR$(14);"BASIC TOO 
LOW! -- USE THE ‘SECTOR 
' PROGRAM AS A BOOT 

60 END 

70 BEND 

80 IFPEEK(186) <8ORPEEK(186) 

>11THENPOKE186,8 

90 IFPEEK(7424)<>76ORPEEK(7 

494) <> 32THENBLOAD"SECTOR 
+ML", DB, U( PEEK(186) ) 

160 RD256=DEC("1D00") :WT256 
=DEC("1D69") 

110 DEF FN SC(X)=16+(1ANDX- 
( 35ANDX>35)<31)+(1ANDX- 
(35ANDX>35) <25)+(2ANDX- 
(35ANDX> 35) <18) 

120 DEF FN T(X)=35+(35ANDX= 
2) 

130 DIM KP(18) 

140 FORA=1TO18:READ KP(A):N 
EXTA 

150 FORA=4096T04105 : POKEA, 0 
:NEXTA 

160 ESCS=CHR$ (27) :CLS=CHRS( 
147) :CHS$=CHR$ (19) :GRS=C 
HRS (3) : RD$=CHRS (28) 

178 BLS$=CHR$(31):UL$=CHR$(2 
) :UO$=CHR$ (136) : PKS=CHR 
$(150) :LGS="—89" :MGS=" 
g53" 

186 YL$="{YEL}":PP$="B19":L 
BS§="B73" :UCS=CHR$ (142): 
LO$=CHRS (14) 

190 HX$="0123456789ABCDEF" 

208 WINDOWS, 8,79, 24,6 

210 PRINTESC$"N";CL$;ESC$"L 
";CHR$ (11) ;CHRS$ (14); 

226 COLORG6, 1:COLORS,3 

230 TR=18:SE=@ : DEV=PEEK(186 
) :DRV=0:X=0:¥=0:NS=1:NM 
=O 

240 PRINTGRS;UL$;"SECTOR ED 
ITOR COPYRIGHT 1987 COM 
PUTE! PUBLICATIONS, INC 
mths Ae = 

250 PRINT" - ALL RIGHTS RES 
ERVED" ;U0$; 

268 GOSUB3416 

278 GOSUB3586 

286 GosUB3300 

298 DO 

300 GOSUB4576:IFDF=OTHEN BE 
GIN 

310 GOSUB3910:IFDF=0THEN BE 
GIN 

326 GOSUB4205 

330 GOSUB4309 

340 BEND 

358 BEND 








368 
378 
386 


390 
400 
410 
420 
430 
440 


450 
460 
470 
480 
490 
588 
510 
520 
538 
540 
550 
560 
570 
580 
5908 
600 
610 
620 
630 
648 
650 
660 
670 
680 
698 
789 
719 
720 
738 
740 
758 
760 
778 
788 
798 
800 
816 
820 
830 
840 
850 
860 
870 
880 
896 
9008 
919 


920 


930 
940 
950 
9608 


970 
980 


990 


LOOPUNTILDF=0 

DO 

SYSDEC("“1D6F") ,X,¥:X=PE 
EK(7579) :Y=PEEK( 7586) :K 
=PEEK(213) 

L=1 

Do 

IPK=KP (L)THENEXIT 

L=L+1 

LOOPUNTILL=19 
ONLGOSUB63B , 630, 768, 768 
896, 1050, 1116, 1260,495 
8,578,1700,1810,1398,15 
46, 2300, 2180, 2616, 480 
LOOP UNTILL=18ANDOK=1 
END 

REM END OF SECTOR 
GOSUB2920 

IF OK=l THEN BEGIN 
WINDOWS, 0,79, 24,1 
PRINTRDS$; "BASIC V7.0" 
POKE208, 8 

BEND 

RETURN 

: 

REM SWAP MENUS 
MN=1-(MN) 
ONMN+1G0SUB3410, 3500 
WINDOWD, 18, 79, 22 

RETURN 


REM NEXT BLOCK 
T1=TR:S1=SE 

SE=SE+1 
IFSE>FNSC(TR)THENBEGIN 
SE=0 

TR=TR+1 

IFTR>FNT (NS) THENBEGIN 
TR=1 

BEND 

BEND 

GOSUB2996 

RETURN 


REM LAST BLOCK 
T1=TR:S1=SE 
SE=SE-1 
IFSE<OTHENBEGIN 
TR=TR-1 
IFTR=OTHENBEGIN 
TR=FNT (NS) 

BEND 
SE=FNSC(TR) 
BEND 

GOSUB2990 
RETURN 


REM NEW BLOCK 
T1=TR:S1=SE 

DO 

ML=2:PR$="NEW TRACK (1- 
"4MIDS$ (STRS(FNT(NS)),2) 
cs jects 

GOSUB3060: IFIP$=ESC$THE 
NTR=T1:ELSE TR=INT(VAL( 
IP$)) 

LOOPUNTILTR> OANDTR=<FNT 
(Ns) 

DO 

ML=2:PRS="NEW SECTOR (8 
~"+MID$ (STR$(FNSC(TR)), 
2) ee) ote 
GOSUB30601 IF IP$=ESCSTHE 
NBEGIN 

SE=S1:TR=T1 

BEND:ELSE SE=INT(VAL(IP 





$)) 
LOOPUNTILSE>=GANDSE<=FN 
SC(TR) 


1068 GOSUB580 
1818 GOSUB2999 
1026 RETURN 





1038 
1048 
1058 
1868 
1976 
10808 
1698 
1108 
1118 
1120 
1138 


1146 
1156 


1168 


1170 
1180 


1196 


1260 
1210 
1226 
1230 
1246 
1256 
1268 


1278 
1280 
1298 
1308 
1310 
1326 


1338 
1348 
13508 
1360 
13708 
1388 
1398 
1486 
1419 


1420 


1430 
1440 


1450 
1460 
1478 
1480 
1498 
1500 
1516 
1528 
1538 
1548 


: 
REM LINK SECTOR 
T1=TR:S1=SE 
TR=LT:SE=LS 
GOSUB2999 
RETURN 


t 
REM ENTER HEX 
DO 


Do 
ML=2:PR§$="NEW HEX VALU 
E :":GOSUB3060:1F IP$= 
ESC$ THEN IP$="FFFF" 
H1$=LEFT$(IP$,1):H2$=M 
ID$(IP$,2) 
LOOPUNTILIP$="FFFF"OR( 
INSTR(HX$,H1$)*INSTR(H 
X$,H2$) <>) 
LOOPUNTILIP$="FFFF"OR( 
DEC(IP$)>=@ANDDEC(IP$) 
<=255) 

IPIP$ <> "FFFF"THENBEGIN 
pores Ree sce Dec ne 
§ 

X=X+1 1 IFX"16THENX=0 Y= 
Y+1:1FY=16THENY=9 

BEND 

GosuB589 

GosuB3000 

RETURN 


: 
REM ENTER TEXT 
IL=0:ML=148:PR$="NEW T 
EXT :":GOSUB3060:IFIP$ 
=ESC$THENIPS$="" 
GOSUBS589 
IFLEN(IP$)<>@THENBEGIN 
FORZ=1TOLEN (IP$) 
PC=ASC(MID$(IP$,Z,1)) 
POKE7168+X+16*Y, PC 
X=X+1 : IFX=16THENX=0 : Y= 
Y+1: IFY=16THENY=0 
NEXTZ 

BEND 

GosuB30098 

RETURN 


z 
REM NEW DRIVE NO 
T1=TR:S1=SE 


Do 
ML=1:PRS$="NEW DRIVE (8 
/1) :":GOSUB3060 
LOOPUNTILIP$="@"ORIP$= 
"1"ORIPS$=ESCS$ 

IF IP$<>ESC§THENBEGIN 
PRINTIP$ : DRV=ASC(IP$)- 
48 

GOSUB580 

GOSUB45708 

GOSUB3910 

GOSUB4200 

GOSUB43008 

BEND: ELSE GOSUB580 
RETURN 


1 
REM NEW DEVICE NO 
OD=DEV 


1558 DO 


1568 
1570 


1586 
1596 
1680 


1610 
1628 
1636 
1648 
1650 


ML=2:PRS$="NEW DEVICE ( 
8-11) :":GOSUB3060 

LOOPUNTIL (VAL(IP$)>7AN 
DVAL(1P$) <12)ORIP$=ESC 


§ 

IFIP$¢>ESC$THENBEGIN 
DEV=VAL(IP$) 

OPEN1, DEV, 1:CLOSE1: IFS 
<> @THENDEV=0D 
GOSUB580 

GOSUB4576 

GOSUB3916 

GOSUB4260 

GOSUB4308 
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RS 





1668 
1678 
1680 
1699 
1788 


1710 
1720 
1738 
1748 
1758 
1768 
1778 
1786 


BEND: ELSEGOSUB580 
RETURN 

REM SEND DISK COMMAND 
ML=58:PRS$="DISK COMMAN 
D:":GOSUB3060, 
IFIP$<>ESC$THENBEGIN 
OPEN15, DEV, 15, IP$ 
GOSUB3758 

CLOSE15 

GOSUB580 

GOSUB2998 

BEND: ELSEGOSUB589 
RETURN 


1798 : 


1868 


1810 
1820 
1830 
1849 
1858 


1860 
1870 
1880 
1898 
1986 


1918 


1920 
1936 
1946 
1950 


1968 
1978 
1986 
1998 
2080 
2010 
2620 


2836 
2048 


2656 
2066 
2078 
2688 
2698 
2100 
2118 
2126 
2138 


2148 
2158 
2168 
2178 
2188 
2198 
2208 


2218 
2226 
2238 
2248 
2258 
2266 
2278 
2288 
2298 


REM DISPLAY DISK CATAL 
OG 

PRINTESC$"M"; 
POKE208 , 0 

WINDOWS, 1,79,24,1 
PRINTRDS; "DIRECTORY: "; 
SYSDEC("1D12") , DEVAND3 
+(DRV*4) 
SYSDEC("1D15") 
WINDOWO, 3,79, 24,1 
CT=8:TC=1 

DO WHILE ST<>64 
PRINTTAB ( 40-(4@ANDCT<2 
2)) RDS; RIGHTS ( "OO"+MI 
D$(STR$(TC),2),3)7" "7 
EHINTELS: :SYSDEC("1D15 





CT=CT+1 :TC=TC+1 
IFCT=44THENBEGIN 
WINDOW43,1,79,1,1 
PRINTRDS; "PRESS ANY KE 
Y TO CONTINUE, Q TO QU 
rT." 

GETKEYAS$ 

PRINTCLS; BL$ 

WINDOWG, 3,79, 24,1 

cr=o 

BEND 

IFST=64THENBEGIN 
PRINT" (4 LEFT) 

{4 SPACES)" 
WINDOW43,1,79,1,1 
PRINTRD$; "PRESS ANY KE 
¥ TO CONTINUE." 
GETKEYAS 

PRINTCLS$ 

WINDOWO, 3,79, 24,1 

BEND 

IFA$="Q"THENEXIT 

LOOP 

CLOSES 

PRINTESC$"L"; 
GOSUB3416 :GOSUB358B :GO 
SUB3308 

GOSUB3008 

RETURN 


REM EXCHANGE DISKS 

POKE268 ,0 

WINDOWO, 23,79, 24,1 

PRINT" INSERT NEW DISK, 
PRESS ANY WHEN DONE.. 


GETKEYAS 
GOSUB586 
GOSUB3916 
GOSUB4200 
GOSUB4576 
GosuB4300 

RETURN 

: 

REM FORMAT DISKS 


2300 DO 


2318 


2328 


ML=1:PR$="SINGLE OR DO 
UBLE SIDED (S/D) :":GO 
SUB3068 
LOOPUNTILIP$="S"ORIP$= 
“D"ORIP$=ESC$ 
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2330 
2346 


2358 


2360 
23708 
2380 
2398 


2408 
2410 
2426 


2438 
2449 
2458 
2460 
2478 


2486 
2498 
25808 
2518 
2528 
2530 
2548 
25508 
2568 
2570 
2580 


IF IP$<>ESCSTHENBEGIN 
IPIP$="S"THENCMS="6" :E 
LSE CM$="1" 

OPEN15, DEV, 15, "U0>M"+C 
MS 

GOSUB3750 

CLOSE15 
IFDF=OTHENBEGIN 
ML=16:PR$="DISK NAME : 
" :GOSUB3060 
IPIP$<>ESC$THENBEGIN 
NNS=IPS 
IL=9:ML=2:PRS="ID (‘RE 
TURN' FOR QUICK FORMAT 
) :":GOSUB3060 

IF IP$<>ESC$THENBEGIN 
ID$=IP$ 

GOSUB2920 
IFOK=1THENBEGIN 
OPEN15, DEV, 15, "N"+STRS 
(DRV)+":"+NNS+", "+IDS 
GOSUB3758 

CLOSE15 

BEND 

BEND 

BEND 

BEND 

BEND 
GOSUB586 : GOSUB2230 
BEND 

GOSUB588 

RETURN 


2598 : 


2608 
2616 


2628 
26308 


2648 


2650 
2660 
2678 
2688 


2698 


2700 
2718 
2720 
2738 


2746 


2758 
2760 
27708 
2780 


2798 


2888 
2818 
2820 
2836 


2840 
2858 
2860 
2878 
2886 
2898 
2988 
2916 
2926 


REM MOVE BLOCK 
T1=TR:S1=SE:D1=DEV: D2= 
DRV 

DO 

PR$="MOVE TO TRACK (1- 
"“+MID$(STR$(FNT(NS)) ,2 
)+")_ 2" :ML=2:GOSUB3068 
LOOPUNTIL (INT (VAL(IP$) 
)> @ANDINT (VAL(IP$)<=FN 
T(NS)))ORIP$=ESCS 
IFIP$<>ESCSTHENBEGIN 
TR=INT(VAL(IP$)) 

DO 

PRS$="MOVE TO SECTOR (6 
-"+MIDS$ (STR$(FNSC(TR)) 
22)+") :"sML=2:GOSUB38 
65 

LOOPUNTIL (INT(VAL(IP$) 
)>=@ANDINT (VAL(IP$))<= 
FNSC(TR) ) ORIP$=ESC$ 
IPIP$<>ESC$THENBEGIN 
SE=INT(VAL(IP$)) 

Do 

PRS="MOVE TO DRIVE (0/ 
1) :":ML=1:GOSUB3068 
LOOPUNTILIP$="6"ORIP$= 
"1™ORIPS=ESCS$ 
IPIP$<>ESC$THENBEGIN 
DRV=VAL(IP$) 

DO 

PRS$="MOVE TO DEVICE (8 
-11) =":ML=2:GOSUB3966 
LOOPUNTIL(VAL(IP$)>7AN 
DVAL(IP$)<12)ORIP$=ESC 
$ 








IFIP$<>ESCSTHENBEGIN 
DEV=VAL(IP$) 

GOSUB4058 

TR=T1:SE=S1 : DEV=D1:DRV 
=D2 

BEND 

BEND 

BEND 

BEND 

GOSUBS80 


RETURN 


REM ASK ARE YOU SURE? 
OK=8 








PE 
cs 


3338 
3340 
3358 


3368 
3378 
33898 
3398 
3408 
3418 
3428 
3436 


3448 
3458 


PR$="ARE YOU SURE (Y/N 
) :":ML=1:GOSUB3069 
IFIP$="Y"ORIPS="Y" THEN 
OK=1 

GOsUB589 

RETURN 

: 

REM DISPLAY NEW DETAIL 
8 

GosuB3918 

GOSUB4208 

GOSUB4308 
IFDF=1THENTR=T1:SE=S1: 
DF=8 

RETURN 

: 

REM GENERAL INPUT 
Ipg="" 

POKE208 , 8 
WINDOWD, 23, 79, 24,1 
CS$=CHRS$(15)+"8@3 
(LEPT}"+CHRS (143) 
PRINTPRS ;CS$; 

DO 

GETK$ 
IFKS$=CHR§ (20) ANDLEN (IP 
§ )>O@THENBEGIN 
PRINTK$;CS$7 

eras deta eRe) 
-1 

BEND 
IFK$=CHR$ (13 )ANDLEN (IP 
$)=>ILTHENBEGIN 

PRINT" "; 

BEND 

K=ASC(K$) 

IF ((K>31ANDK<127)ORK>1 
59) ANDLEN (IP$) <MLANDK< 
>34THENBEGIN 
IP$=IP$+K$ 
PRINTKS ; CS$; 

BEND 

LOOP UNTILKS$=ESCS$OR(K$ 
=CHR$(13)ANDLEN(IP$)=> 
IL 


IL=1:IFK$=ESC$THENIPS= 
KS 

RETURN 

: 

REM DISPLAY HEX GRID 
WINDOWS, 1,79,17,1 
PRINTESC$"M" ;UCS; 
PRINTRD$;"{3 SPACES}6 
2 SPACES}1({2 SPACES)2 
SPACES}3{2 SPACES]4 
SPACES}5({2 SPACES}6 
SPACES}7(2 SPACES}8 
SPACES}9{2 SPACESJA 
SPACES}B{2 SPACES}C 
SPACES}D{2 SPACES}E 
SPACES}F{12 SPACES} 





PRINTHX$ 

FORA=0TO15 

PRINTMIDS (HX$,A+1,1)7S 
PC(58) ;MID$(HX$,A+1,1) 
NEXTA 
PRINTESC$"L";LC$; 
RETURN 

: 

REM DISPLAY OPTIONS #1 
WINDOWS, 23,79, 24,1 
PRINTESC$"M"; 
PRINTRDS$; "+: NEXT BLOC 
K(2 SPACES}B: NEW BLOC 
K(3 SPACES}@: HEX INPU 
T{3 SPACES}#: NEW DRIV 
E{3 SPACES}"; 

PRINT"W: WRITE BLOCK" 
PRINT"-: LAST BLOCK 

{2 SPACES}L: LINK BLOC 
K({2 SPACES}T: TEXT INP 














cP 


CF 


FB 


MF 


Qs 


3468 
3478 
3480 
3498 
3508 


3510 
3528 


3538 


3540 
3558 
3560 
3576 
3588 
3598 
3680 


3610 


3620 


3630 


3640 


3658 
3668 
3678 


3680 


3698 


3788 


3718 


3728 
3738 
3748 
3758 
3768 


3778 
3780 
3798 
3808 
3819 


3820 


UT(2 SPACES)D: NEW DEV 
ICE(2 SPACES}"; 
PRINT"N: NEXT MENU";ES 
cg"L"; 
RETURN 
: 
REM DISPLAY OPTIONS #2 
WINDOWG, 23,79, 24,1 
PRINTESC$"M"; 
PRINTRD$;"S: SEND COMM 
AND(2 SPACES}F: FORMAT 
DISK{4 SPACES}N: NEXT 
MENU(3 SPACES}Q: QUIT 
PROG." 
PRINT"C: CATALOG DISK 
{2 SPACES}E: EXCHANGE 
{SPACE}DISK{2 SPACES}M 
: MOVE BLOCK"; 
PRINTESCS$;"L"7 
RETURN 
: 
REM DISPLAY DISK INFO 
WINDOWS, 18,79, 22,1 
PRINTESC$"M"; 
PRINTBLS; "BAJ**** eet 
HHARRUAR AAA ARERR RRR ERG 
SALLALEELLAIS:3 


FREAK 


CREPES EEE EE Ee re 

PRINT FUER] TAWA renenes 
*#*BSI=";GRS; "TRACK: 
T2 spaces}, $({2 SPACES} 
";BLS;"="7GR$; "SECTOR: 
{2 sPACES},$(2 SPACES} 











PRINTBLS;"—";GR$; 
TRACK: (2 SPACES 
{2 sPACES)";BL$; 
$;"LINK SECTOR: 

(2 SPACES), $(2 SPACES} 


"LINK 








PRINTBLS; "=";GR$; "BYTE 
s USED: {3 SPACES}";BL$ 








CRIA RQgAt tee eeennnny 


AeA AAR AEE ROLES OER DS 


ER TRAES REAR GEGERS ANE 
TROWRREROERS"; 
BREVETETEES*teegngee 
See HET 

PRINT"-";GRS; "POSITION 
:(3 SPACES}";BL$;"-"; 
PRINTGRS; "BYTE: 

{3 SPACES),${2 SPACES) 
1 '"CHRS(5)3" "7GRS;"" 
“BLS; "="7GR$; 
PRINT"DISK:' 
{16 SPACES}' 
{2 SPACES}' "; 
PRINTBLS; "=' 
CE:(2 SPACES}";BL: 
iGR$;"DRIVE: ";BL: 

















i 
PRINT"RZGt#AA AAR A ARE 
REJ RHA R ATER RAR RRR R EES 
SANTA RRR RRR RRR RRR 
Ey"? 
PRINT FF ee aeeeapegeees 
#**EXI"F ESCH L? 
RETURN 





REM CHECK ERROR 

DE=0 
INPUT#15,DN,DE$,DT$,DB 
$ 


IFDN> 19THENBEGIN 
WINDOWS, 23,79, 24,1 
PRINTESCS$"M"; 
PRINT"DISK ERROR 
$:",";DTS;",";DBS 
PRINT"PRESS ANY KEY TO 
CONTINUE. "; 
PRINTESC$"L"; 











ES 


3838 
3848 
3858 
3868 
3878 
3880 
3898 
39080 
3918 
3920 
3930 
3948 


3958 
39608 
3978 
3980 
39908 
40008 
4010 
4820 
4830 
4040 
4050 
4060 
4078 
4080 
4090 
4100 
4110 
4120 


4130 
4140 
4158 
4160 
4170 
4180 
4198 


4200 
42168 
4220 
4230 
42408 
4250 


4260 
4278 
4280 
4298 
4300 
4310 
4320 
4330 


4340 


4350 


4360 


4370 


4380 


4398 


4400 
4410 
4420 


POKE208, 8 

GETKEYAS 

GOSUB588 

DF=1 

BEND 

RETURN 

: 

REM GENERAL READ 
POKE251,0:POKE252, 28 
OPEN15, DEV, 15 

OPENS, DEV, 8, "#" 
PRINT#15, "U1:8"+STR$(D 
RV)+STR$ (TR)+STR$ (SE) 
GOSUB3758 
IFDF=OTHENBEGIN 

SYS RD256 

GOSUB3758 

BEND 

CLOSES 

CLOSE15 

RETURN 

: 

REM GENERAL WRITE 
GOSUB2920 

IF OK=1 THEN BEGIN 
POKE251,0:POKE252, 28 
OPEN15, DEV, 15 

OPENS, DEV, 8, "#" 
PRINT#15,"B-P:8 6" 
SYS WT256 

PRINT#15, "U2:8"+STR$(D 
RV)+STR§$ (TR)+STR$ (SE) 
GOSUB3759 

CLOSEB 

CLOSE15 

BEND 

RETURN 

: 

REM DISPLAY BOTH SETS 
{SPACEJOF BYTES 
IFDF=@THENBEGIN 
POKE251,0:POKE252, 28 
WINDOWS, 0, 79,24 
PRINTLBS; 
SYSDEC("1D6C") ,2,2 
SYSDEC("1D03"), 140,221 


REM FILL-IN INFO 
IFDF=@THENBEGIN 
PRINTESC$"M"; 
WINDOWG, 18, 79, 22 

B=TR: PRINTPKS ; “{ DOWN) 
(7 RIGHT)"; :GOSUB4450: 
PRINT" (8 RIGHT)"; :B=SE 
:GOSUB4450 





@:PRINT"(13 RIGHT)"; 
B=PEEK(7169) :GOSUB4450 
:LT=PEEK (7168) : LS=PEEK 
(7169) 
NB=256:IFLT>FNT(SD)ORL 
‘T=OTHENNB=LS 
PRINTMG$;"{12 RIGHT)"; 
:B=NB:GOSUB4496 : PRINT" 
{Down} (14 RIGHT}"; 
PRINTYL$; "(24 RIGHT}"; 
LEFTS$(DD$,16);" 

(4 RIGHT)";RIGHTS (DDS, 
2)5 

PRINTPP$"(10 RIGHT)"; 
B=DEV:GOSUB4530: PRINT 
(7 RIGHT)" ;MID$ (STR$(D 
RV),2)7 

PRINTESC$"L"; 

BEND 

RETURN 


4430 : 


4440 


REM DISPLAY DEC, HEX 





CI 4458 


4460 
4470 
4480 
4498 


4508 
4518 
4520 
4530 


4540 
4558 
4560 


4578 
4580 
4598 
4608 
4618 
4620 
4630 


4640 


4650 
4668 
4670 


4680 
4698 
4708 
4710 
4720 
4738 
4748 
4758 


47608 
4770 


4780 


4790 
4800 
4810 
4828 
4830 
4840 





PRINTRIGHTS ( "00" +MID$ ( 
STR$(B),2),2); 

{2 RIGHT}";RIGHTS (HEXS 
(B),2); 

RETURN 


REM DISPLAY 3 BYTE NO 
PRINTRIGHTS ("0O"+MIDS ( 
STR$(B),2),3); 

RETURN 

REM DISPLAY 2 BYTE NO 
PRINTRIGHTS ("@"+MID$(S 
TRS(B),2),2)7 

RETURN 


: 
REM GET NAME OF NEW DI 
sk 

T1=TR:S1=SE 

TR=18:SE=0 

DO 

GosuB3910 
LOOPUNTILDS=0 
TR=T1:SE=S1 
DD$="":PFORA=6TO19: DD=P 
EEK(7312+A) 
IFDD<320RDD=340R(DD>12 
TANDDD < 168 )THENDD=32 
DD$=DD$+CHRS$ (DD) 

NS=1 
IFPEEK(7171)=128THENNS 
=2 


NEXTA 
RETURN 

: 

REM TRAP ROUTINE 
TRAP4720 

IF ER<>36 THEN BEGIN 
PRINT" (2 HOME) (CLRJA"; 
IFINSTR("AEIOU", LEFTS ( 
ERR$(ER), 1)) <> OTHENPRI 
NT"N"; 

PRINT" “;ERR$(ER); 
PRINT" ERROR HAS OCCUR 
RED IN LINE ";EL 
PRINT"PROGRAM ABORTED. 


END 
BEND 
RESUME NEXT 


REM DATA FOR KEYS 
DATA 40,73,43,74, 28,42 
146,22,9,39,13,20,8,18 
121,14, 36,62 


Program 3: Sector Editor—ML 


See instructions in article on page 
57 before typing in. 


1D80:4c 
1D88:1D 
1D10:5D 
1D18:A2 
1D20:CF 
1D28:cc 
1D30:1D 
1D38:FB 
1D40:20 
1D48:1D 
1D50:1D 
1D58:E8 
1D60:68 
1D68:E6 
1D70:D0 
1D78:D6 
1D80:98 
1D88:FD 
1D96:80 
1D98:808 
1DAG:92 
1DA8:8E 
1DBO:AE 


18 
4c 
1F 
08 
FF 
PF 
86 
48 
73 


COMPUTE!'s Gazette August 1987 87 





1DB8:FF 
1DC0:C2 
1pc8:98 
1DD8: DB 
1DD8:Dd 
1DEG:AC 
1DE8:98 
1DFO:E8 
1DF8: 26 
1E00:FF 
1E08:C8 
1E16:03 
1E18:4A 
1E20:8B 
1E28:A9 
1E30:BA 
1E38:20 
1E40:20 
1E48:EF 
1E5@:C6 
1E58:D0 
1E66:C3 
1E68:21 
1E76:72 
1E78:E4 
1E80:F6 
1E88:FF 
1E96:1D 
1E98:1D 
1EAG:AE 
1EA8:AD 
1EBO:1D 
1EB8:B9 
1ECO:1F 
1ECB:AC 
1EDO:FB 
1ED8:FC 
1EE@:FD 
1EE8:FC 
1EFO:FB 
1EF8:1D 
1F00:73 
1F@8:1D 
1F16:00 
1F18:62 
1F26:03 
1F28:04 
1F36:0A 
1F38:22 
1P40:01 
1P48:02 
1F50:63 
1F58:04 
1F66:8E 
1F68:8D 
1F76:8D 
1F78:A2 
1F80:A5 
1F88:FO 
1F90:F 
1F98:FO 
1FAQ:FO 
1PA8:1F 
1FBO:EA 
1FB8:20 
1FCO:1F 
1FC8:63 
1FD6:9B 
1FDB8:A5 
IFEO:1F 
1FE8:B8 
1FPO:8E 
1FF8:9E 
2080:0A 
2088:9D 
2010:FO 
2018:9D 
2620:1D 
2028:9D 


26 
D2 
AD 
1D 
AE 
FF 
20 
A2 
08 
20 
FF 
iD 
69 
20 
AG 
BA 
FF 
FF 
A2 
20 
AQ 
FE 
15 
D2 
co 
FF 
oo 
ip 
A3 
8D 
iD 
1F 
ce 
1F 
iF 
69 
65 
85 
1D 
1F 
AQ 
=D 
Ag 
EO 
20 
60 
@1 
19 
DD 
1D 
5D 
9D 
8D 
1p 
1D 
iF 
88 
FA 
21 
2B 
3A 
6a 
63 
4c 
1D 
9B 
AQ 
4c 
DL 
Fo 
9E 
AQ 
AD 
9B 
A 
D2 
20 
1D 
20 
oo 
c2 
AC 
EQ 
308 
EB 


ic 
FF 
98 
29 
9A 
66 
73 
iF 
20 
D2 
48 
68 
30 
68 
oo 
AS 
A2 
20 
98 
E4 
98 
8D 
21 
FF 
oo 
26 
AD 
8D 
1D 
AS 
AD 
85 
BO 
85 
18 
68 
FD 
FE 
Es 
AD 
93 
AD 
oo 
a1 
@3 
04 
04 
1c 
oo 
62 
93 
64 
9B 
29 
29 
AG 
De 
co 
oe) 
co 
co 
20 
iE 
63 
4c 
1p 
20 
63 
4c 
DA 
iD 
FF 
9c 
1D 
OA 
FE 
17 
00 
4A 
AC 
BB 
20 
64 
69 
Bo 





2048:1D 
265003 
2058:38 
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2060:69 
2068:FF 
2070:FF 
2078:E9 
2880 :E9 
2088:BO 
2090:14 
2098:15 
20A0:AD 
20A8:AD 
2080:90 
20B8:69 
2000:69 
20C8:A2 
20D0:8D 
20D8:8D 
20E0:8E 
20E8:38 
20F0:B0 
20F8:1A 
2106:30 
2108:B9 
2116:05 
2118:00 
2126:00 


3A 
68 
60 
16 
27 
EB 
21 
21 
14 
15 
63 
ES 
93 
30 
14 
15 
18 
A2 
Fo 
ai. 
De 
16 
DS 
26 
6o 


98 
68 
AD 
AD 
90 
69 
69 
A2 
8D 
8D 
AD 
AD 
8E 
21 
21 
ES 
21 
6 
69 
16 
04 
FF 
ao 
26 
ao 


20 
20 
14 
15 
03 
16 
27 
30 
14 
15 
14 
15 
17 
E9 
E9 
BO 
69 
03 
3A 
21 
bo 
cB 
80 
oo 
00 


D2 
D2 
21 
21 
E8 
8D 
8p 
38 
21 
21 
21 
21 
21 
64 
06 
EB 
64 
EB 
aD 
co 
F4 
co 
06 
oo 
06 








BEFORE TYPING .. . 


Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 








Front Line 
Article on page 26, 


Program 1: Front Line Loader 
JD 10 POKE 53280,0:POKE 53281, 


QF 


FF 


BM 


SB 


ce 


BC 


RS 


RD 


20 


58 


60 


76 


80 


90 


@:PRINT"{CLR}" 

REM COPYRIGHT 1987 COMPU 
TE] PUBLICATIONS INC. - 
(SPACE)ALL RIGHTS RESERV 
ED 

FOR D=1T08:PRINT"{DOWN}” 
:NEXT 

PRINT" E83(DOWN}{6 RIGHT} 
+++LOADING PLEASE WAIT.. 
+ {6 DOWN)" 

PRINT" (GRN}{2 SPACES}COP 
YRIGHT 1987 COMPUTE! PUB 
+, INC." 
PRINTTAB(9)"ALL RIGHTS R 
ESERVED(HOME} {DowN}" 
POKE198 , 8: POKE631,19:POK 
E632, 17:POKE633,17:FORN= 
OTO4: POKE634+N, 13 :NEXT 
PRINT" {BLK} POKE44 , 56: POK 
£43, 1:POKE56*256,0:NEW" 
PRINT" {2 DOWN} LOAD"CHRS( 
34)"PRONT LINE. BAS"CHRS ( 
34)",8" 





XM 100 PRINT"({4 DOWN]RUN" 
Program 2: Main Program— 


BASIC 


ER 16 POKE 53280,11:POKE53281, 


EP 


PX 
Ox 
BD 


Mo 
Mx 


20 


30 
40 
58 


60 
70 


6 
L=L+] : IFL=1THENPRINT" 
{CLR} "CHRS (8) CHRS (142) :L 
OAD"FRONT LINE.ML",8,1 
SYS49155,12,10,"E73F RO 
N T{4 SPACES}L I NE" 
CLR: DIM HP(55),PO(55),SP 
(55),AM(255),FS(55) 
FORN=40T047 

READPO(N) :PO(N+8)=PO(N) 
READHP(N) :HP(N+8)=HP(N) 











EC 


KX 


AS 


Ks 


MP 


ac 


cM 


EH 
KH 


ax 


ce 
AE 
KF 


XA 
xc 


MG 
MP 
cc 


80 READSP(N) :SP(N+8)=SP(N) 
90 READFS(N) :FS(N+8)=FS(N) 


100 
110 
126 
138 
148 


158 
168 


176 
180 
198 
208 
210 
220 
236 
240 
250 
268 
270 
286 
298 
300 


318 
328 


338 


340 
358 


360 


378 


380 


396 


400 


410 
420 


438 


440 
450 


460 


470 
480 
490 


500 
518 


520 
538 
548 


READAM(N) :AM(N+8)=AM(N) 
NEXT 
IFPEEK(788)<>49THEN180 
GOSUB1486 
FORN=0T0111:READS: POKE] 
2560+N,S:NEXT 
GOSUB1556 

FORN=6 1063 : READS : POKEN+ 
832,S:NEXT 

FORN=0T06 : READCO: POKE53 
287+N, CO:NEXT: FORN=6T02 
:POKE2044+N, 13:NEXT 
PO=49158 

HP=49168 

SP=49164 

FS=49168 

AM=49172 

$1=1024 

$2=2023 

=54272 

JY=56320 

W=34 

AR=49152:REM ARENA 
LP=49155:REM LOCATE AND 
PRINT 
c$(8)="{RED}":C$(1)=" 
&73" 

Pc(8)=8:PC(1)=8 
WL(@)=46 :WH(6)=47:WL(1) 
=48:WH(1)=55 

AMS (@)="AUTO" :AM$(1)="S 
EMI" 
AM(@)=80:AM(1)=255 
TS="(GRN}#$ (DOWN) 

{2 LEFT} #6" 

BS="€59k4 +3(DOWN} 

{4 LEPT}]E+4{ Rvs} 

{2 SPACES} {OFF} £+3 
(bown} (4 LEFT) £+3 {Rvs} 
(2 SPACES} {OFF} E+3 
{Down} {4 LEFT}E4 +3" 
POKE53269, 112: POKE53271 
15:POKE5S3272, 29: POKE53 
275,112: POKE53277,15 
POKE53256, 57: POKE53258, 
169: POKE53268, 32 
POKE53257,138:POKE53259 
154: POKE53261, 138: POKE 
53264,64 

S=RND(-7) : PRINT" {CLR}" 
FORN=1T015:SYSLP, RND(1) 
*21+2,RND(1)*36+2,TS :NE 
xT 

S=RND(-TI/T) :FORN=46T04 
7 





R=RND(1)*5:IFPEEK(2*(N- 
38) *40+1030+R) <>32THEN4 
26 

POKE2* (N-38) *40+1030+R, 
N: POKE2* (N-38) *40+1030+ 
R+C, 10:NEXT 

FORN=48T055 
R=RND(1)*5:IFPEEK(2*(N- 
46)*40+1053+R) <> 32THEN4 
58 
POKE2*(N-46)*40+1053+R, 
Nz POKE2*(N-46) *40+1653+ 
R+C,14:NEXT 


REM MAIN LOOP 
GOSUB1259 
Y=12:X=19:L=1523:CO=2:G 
OSUBB30 

GOSUB650 


Pl=(F1+1)AND1:IFF1=1THE 
N60 

IFOG<> 32THENGOSUB890:1F 
P1=1THEN500 

OG=W:W=34: 
:GOSUB820 
H1=PEEK(1509) :H2=PEEK(1 
603) :H3=PEEK(1538) 








:D=1 











SK 


RQ 


co 


FK 


558 
560 


578 


580 


598 
608 


618 
620 
636 


640 
650 


660 
670 
680 


690 
708 


7108 
720 


730 
740 
758 
760 
770 


780 
798 


800 
810 
820 
8308 


840 
850 


860 
870 
880 
890 


900 


910 


920 
938 


940 
958 
960 
9768 


980 


IFH1=320RH2=320RH3=32TH 
EN589 
IPH1<WL(1)THENIFH2<WL(1 
) THENIPH3 <WL (1) THENPC(1 
)=8 
IFH1>WH(@)THENIFH2>WH(@ 
) THENIFH3>WH(@)THENPC(O 


)=6 
IFPC(@)=GORPC(1)=OTHENL 
270 

P=P+1AND1:GOTO480 
IFOG<WL(P)OROG>WH(P) THE 
NF1=0:GOTO508 

W=0G :0G=32 :CO=0C:CX=0:C 
¥=0 

PRINTC$(P)" (HOME) (RVS} 
(40 SPACES)" 
PRINTC$ (P)" {HOME} {RVS} 
(SPACE) MOVEMENT" 16-SP(W 
) “WEAPON : "AMS (AM(W))"," 
HP(W)" STRENGTH" PO(W); 
GOSUB84 :GOTO500 
J=PEEK(JY+P) : IF (JAND31) 
=31THENIFOG=32THEN650 
IFPEEK(JY+P) ANDI6THENGO 
SUB710:GOTO658 
IFNOTPEEK (J¥+P) ANDI6THE 
N670 

IFF1=0THENI FOG=32THEN65 
Ci) 





RETURN 

REM MOVE PIECE UNTIL FI 
RE BUTTON IS PRESSED 
OX=X:OY=Y: PX=CX:PY=CY 
IFNOTJANDBTHENX=X+1 :CX= 
CX+1 
IFNOTJAND4THENX=X~1 :CX= 
CX-1 
IFNOTJAND2THENY=Y+1 :CY= 
cy+1 
IFNOTJAND1THENY=Y-1 :CY= 
cy-1 


IFY> 240RY <1 THENY=OY :CY= 
PY 

IPX> 39ORX <OTHENX=OX : CX= 
PX 

IFF1=OTHENS10 

IPABS (CY) > 10-SP(W) THENY 
=0Y:CY=PY 

IFABS (CX) > 10-SP(W)THENX 
=OX :CX=PX 

L=S1+¥*40+X 
POKEOL , 0G : POKEOL+C, OC 
OL=L:0G=PEEK(L) :OC=PEEK 
(C+L) 

IFF1=1THENPOKEL+C, 1 
POKEL+C, CO: IFD=1THEND=O 
:GOTO870 

POKEL,W 

RETURN 

REM CHECK CHARACTER THA 
T PLAYER LANDED ON 

IF (0G>=WL(P)) AND(OG<=WH 
(P)) THENF1=1 RETURN 
IFNOT(0G>=WL(P+1AND1))A 
ND(0G<=WH(P+1AND1)) THEN 
Fl=1:RETURN 

REM PUT PLAYERS IN AREN 
A 

POKE53269,0 

F1=0 :GOSUB1440 :PRINT" 
{cLR}" 
SYSLP,5,6,B$:SYSLP,5,20 
BS 
SYSLP,16,6,B$:SYSLP,16, 


20,BS 
SYSLP,10,13,B$ 

PRINT" {HOME}"; :FORN=1TO 
12:PRINTSPC(30)"{RVS} 
{RED}{16 SPACES}"; :NEXT 
FORN=1T012: PRINTSPC (30) 
“{RVS} (BLU}{16 SPACES}" 
7 NEXT 














FA 


sc 


PH 


xQ 


xP 
HS 


DH 


9908 


1069 


1018 


1020 


1638 


1042 
1050 


1066 
1070 
1086 


1090 


1100 


1110 


1126 
1136 


1140 
1156 


1160 


1170 
1186 
1198 
1206 


1216 


1220 
1230 


1240 
1250 


1260 
1276 


1280 
1296 


1300 
1310 


1320 
1330 
1346 


1350 


1366 


FORN=2014702623 : POKEN, 1 

60: POKEN+C, 6 :NEXT 
SYSLP,2,31,"(RVS}(RED} 
STRENGTH" :SYSLP,15,31, 
"({RVS} (BLU} STRENGTH" 
SYSLP,3,31,"{RVSJE53:: 
322223":SYSLP,16,31," 
(Rvs}::erse22" 
POKEHP+P, HP(W) : PO(W)=P 
O(W)+10:IFPO(W)>31THEN 
POo(W)=31 

POKEPO+P, PO(W) : POKESP+ 
P,SP(W) :POKEAM+P, AM(AM 
(W)):POKEFS+P,FS(W) 
P=P+1AND1 

POKEHP+P, HP(OG) : POKEPO 
+P, PO(0G) : POKESP+P, SP( 
OG) FEO DME AM (AH(09) 








POKEFS+P,FS(0G) 
P=P+1AND1 
SYSLP,5,31,"{RVS} {RED} 
MOVE :"10-PEEK(SP) 
SYSLP,18,31,"{RVS)} 
(BLU) MOVE: "10-PEEK(SP+ 
1) 








SYSLP,7,31,"(RVS} {RED} 
WEAPON: "; :SYSLP,9,31,A 
MS (-1* (PEEK(AM)=255))" 
,"PEEK(HP) 
SYSLP,20,31,"(RVS)} 
{BLU} WEAPON: "; :SYSLP, 2 
2,31, AMS (-1* (PEEK(AM+1 
)=255))","PEEK(HP+1) 
SYS ARENA 

POKE54296 ,O:WI=1:IFPEE 
K(PO)=OTHENWI=2 
FORN=1T030 

PRINT" {HOME} {RVS} (WHT) 
{9 SPACES) PLAYER"STRS ( 
WI)" WINS THE FIGHT 

{8 SPACES}" 

PRINTCS (WI-1)" (HOME) 
{Rvs} {9 SPACES) PLAYER" 
STRS$(WI)" WINS THE FIG 
uT(8 SPACES)" 
FORT=1T050 :NEXT: NEXT 
POKE 53269,0 

PRINT" (CLR}":GOSUB1400 
: POKE53269, 112 
PO(W)=PEEK(PO+P) :PO(OG 
)=PEEK(PO+(P+1AND1)) 
IFPEEK(PO+P )=OTHENW=0G 
2CO=0C: PC(P)=PC(P)=-1:R 
ETURN 
P=P+1AND1:PC(P)=PC(P)- 
1 











RETURN 


PRINTC$(P)" {HOME} {RVS} 
{15 SPACES}FRONT LINE 
(15 SPACES}":RETURN 
REM GAME OVER 
POKE53269,112:WI=1:IFP 
C(0)=OTHENWI=2: 
FORN=1T020 

PRINT" (HOME) (RVS] (WHT) 
{18 SPACES} PLAYER"STRS 
(WI)" WINS THE BATTLE 
{6 SPACES}" 

FORT=1T050 :NEXT 
PRINTCS (WI-1)" {HOME} 
{RVS} {18 SPACES} PLAYER 
“STRS(WI)" WINS THE BA 
TTLE{6 SPACES}" 
FORT=1T0100 :NEXT 

NEXT 
PRINT" (CLR}" : POKE53272 
+21 :POKE53269,0 

POKE 198,6:INPUT" {BLU} 
WANT TO PLAY AGAIN 

(3 SPACES} (¥/N)";CHS 
IFCHS="Y"THENPRINT" 





EX 


AM 


FP 


1370 
1388 
1390 
14860 


1410 


1428 
1430 
14408 


1450 


1460 
1470 
14868 


1490 
1580 


1516 
1526 


1530 
1548 


1550 


1560 
1578 
1588 


1598 
16080 
1610 


1620 


1630 
1640 
1658 
16608 
16706 
16808 
1698 
1768 
1716 
1728 
1736 


1746 
1750 


GG 1760 


17768 
1786 


1798 
1800 


1810 
1820 
1838 


1840 


(CLR)": POKE53272,29:GO 
7030 
IFCHS$= 
GOTO1346 

REM RETRIEVE SCREEN 
POKE781,4:POKE782, 255: 
POKE8B , 6: POKE89 , 7: POKE 
90,0:POKE91,207:SYS419 
60 





'THENEND 


POKE781,4:POKE782, 255: 
POKE88 , 0: POKE89, 219: PO 
KE9@,@:POKE91, 203:SYS4 
1960 

RETURN 

REM SAVE SCREEN 
POKE781,4:POKE782, 255: 
POKE8S , 8: POKEB9 , 207: PO 
KE96,0:POKE91,7:SYS419 
60 

POKE781,4:POKE782, 255: 
POKE88 ,@: POKE89 , 203: PO 
KE90,0:POKE91, 219:SYS4 
1960 

RETURN 

REM CHAR ROM 
POKES6334, PEEK(56334)A 
ND254 

POKE1, PEEK(1)AND251 
POKE781,8:POKE782, 255: 
POKE8B , 0: POKEB9 , 55 : POK 
£90, 6: POKE91, 215:SYS41 
960 








POKE1, PEEK(1)OR4 
POKE56334, PEEK(56334)0 
RL 

RETURN 

REM CREATE SPRITE SHAP 
ES FROM CHARS 
FORN=2048T02048+576 : PO 
KEN , 0:NEXT 

FORN=0T08 

FORX=0T07 

POKE 2048+X*3+N*64, PEE 
K (12600+N*8+X) 

NEXT: NEXT 

REM COPY CHARS 
FORN=12640T012671 : POKE 
N+32, PEEK(N) : POKEN+64, 
PEEK(N) :NEXT 
FORN=12608T012639 : POKE 
N+32, PEEK(N) :NEXT 
RETURN 

REM PLAYER DATA 
DATA31,1 ,2 ,3 
DATA30,5 4 
DATA1O,8 ,4 
DATA 8,14,5 
DATA27,2 ,2 
DATA25,6 ,3 
DATA16,9 ,6 
DATA1O,10,5 ,2 ,1 

REM SHAPE DATA-14 CHAR 
S,10 SPRITES 
DATA231,129,129,0,0,12 
9,129,231 
DATAG,1,20,43,4,27,45, 
58 
DATAO,0,144,112,172,21 
6,108,186 
DATA75,52,47,9,1,1,1,98 
DATA260,116,236,152,, 
0,128,0 

DATAO, 0,8,24,0,0,0,0 
DATA24,16,56,63,30,17, 
34,64 
DATA24,16,56,63,24, 20, 
114,2 
DATA24,16,56,63,24,12, 
24,8 
DATA24,16,56,63,28,18, 
20,32 
DATA24,8, 28, 252,120,13 
6,68,2 
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1850 DATA24,8,28,252,24,40, 
78,64 
DATA24,8, 28, 252,24,48, 
24,16 
DATA24,8,28,252,56,72, 
40,4 

REM HILL SPRITE 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1860 
1876 


1886 
1890 
1908 
1910 
1920 
1938 
1940 
1950 





6 
@ 
i) 
8 
Q 
6 
1 


2 
2 


3,255,128,7,1 
24,308,237 

DATA 240,27,191,216,3, 
38,128,0 

REM COLOR DATA 

DATA 2,6,8,8,9,9,9 


BM 1960 


BD 
FG 


1970 
1980 


Program 3: Main Program—ML 


See instructions in article on page 
26 before typing in. 


c800:4C 49 
CO08:81 1 
C810:02 087 
CO18:21 26 
C626:86 80 
CO28:04 OF 
CO30:0A OL 
C038:06 86 
C840:00 00 
C848:08 A 
CO50:8D F9 
C858:8D FB 
C860:3A CO 
¢868:33 aD 
C870:DB Ad 
CO78:8D 02 
CO8G:AD 27 
C@88:D8 8D 
€898:C2 EG 
C898:78 AD 
COAG:8D 15 
COAB:04 20 
COBO:44 CO 
COB8:03 BD 
C@CO:27 C2 
COCB:20 BA 
CODB:4C Ad 
CODB:AG BB 
COEG:4A BO 
COEB:4A BO 
COFG:C3 68 
COFB:CO DI 
C188:C8 DO 
C168:2F CO 
C110:D@ 09 
C118:4C 3F 
C120:68 A6 
C128:BD ac 
C130:C3 20 
C138:06 B9 
C146:00 8D 
C148:20 CO 
C156:90 
C158:CcO 
C160:79 
C168:18 
C170:14 
C178:38 
C180:A8 
C188 :A8 
C190:FO 
C198:D1 
C1A@:C9 
C1A8:3D 
C1B0:99 
C1B8:CO 
C1cG:Dd 
c1c8:05 
¢1D8:DC 
C1D8:99 





29 
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C1EO:DO 
CLES :CO 





C218:9D 
C220:99 
C228:0B 
C230:84 
C238:45 
C248 :04 
C248:28 
C256:28 
C258:2D 
€266:99 
€268:D0 
C276:81 
C278:D4 
C286:0A 
C288:B9 
C298:8A 
C298:38 
C2A0:C9 
C2A8:69 
C2B0:49 
C2B8:C2 
C2C8:47 
C2C8:3A 
C2D0:A9 
C2D8:DE 
C2E0:C3 
C2E8:B9 
C2FO:4A 
C2F8:06 
C308 :4A 
C308:AA 
310:A5 
C318:88 
€320:48 
¢328:18 
€336:20 
338:04 
¢348:co 
C348:1F 
350:2E 
©358:CO 
©368:C9 
C368:C8 
378:18 
C378:98 
¢388:18 
C388:C8 
C390:46 
¢398:AD 
C3A0:CO 
C3A8:CO 
C3B0:48 
C3B8:48 


BEFORE TYPING . . . 
Before typing in programs, please 
refer to “How To Type In 


COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 


Dynamusic 


Article on page 62. 


Program 1: Dynamusic Translator 


KC 16 REM COPYRIGHT 1987 COMPU 
TE! PUBLICATIONS, INC. - 
ALL RIGHTS RESERVED 

MQ 20 LN=8000 

RQ 38 GOTO168 

DE 40 POKES+1,7@:POKES+5,7:POK 








HD 


1008 
110 


120 


130 


140 


150 


168 


176 


180 
198 
208 


216 
220 


236 


240 


250 
260 
270 
288 
298 
308 
310 


328 


338 
340 
358 


360 
3708 


380 


ES+4,17:GOSUB6O:RETURN 
POKES+1, 6:POKES+5, 9 :POKE 
S+4, 33 :GOSUB60 : RETURN 
FORJ=1T025 :NEXT: FORJ=STO 
S+5:POKEJ, 6:NEXT: RETURN, 
GETX$ : 1FX$=""THEN7O 
RETURN 
TS=STRS(T):TS=RIGHTS (TS, 
LEN(T$)-1) :RETURN 
POKE53281 , 6: POKE53280,0 
+ PRINTCHR$(14)"{2 DOWN) 
PRINT" {CLR} £89 





PRINTTAB(9)"ALL RIGHTS. 
(SPACE}RESERVED(2 DOWN} 


PRINT" 74WHAT IS THE OC 
TAVE?":S=54272: POKES+24 
»15:Z$="{5 DOWN)" 
PRINT" {2 DOWN)HIT", "£53 
@ THRU 7873","TO INDICA 
TE":PRINT,,"OCTAVE NUMB 
ER." 
PRINT, " (DOWN) £59RETURN 
&73","TO INDICATE A RES 
T.":PRINT," {DOWN} £53Q 
&73","TO QUIT." 
PRINTZ$"{GRNJMIDDLE C B 
EGINS OCTAVE 4, WHICH R 
UNS(4 SPACES]UPWARD TO 
(SPACE}INCLUDE "; 
PRINT"THE B ABOVE MIDDL 
E C. THE OCTAVE ABOVE I 
S 5 AND THE OCTAVE " 
PRINT"BELOW MIDDLE C IS 
3, ETC.£79 
GOSUB79 :C$=X$ : IFC$<>"Q" 
THEN280 
PRINT" (CLRJENTER £53Y 
&73 IF YOU REALLY WANT 
{SPACE}TO QUIT." 
GOSUB7@ : IFX$<>"Y"THENPR 
INT" {CLR}":GOTO130 
PRINT"(CLR)THE ENTRY ST 
AGE IS COMPLETE." 
PRINT" (DOWNJHIT £53CE73 
10 CYCLE THE MUSIC OVE 
R AND OVER. 
PRINT" {DOWN}JANY OTHER K 
EY TO PLAY THE MUSIC ON 
CE{4 SPACES]EACH TIME I 
T IS CALLED." 
GOSUB70 :L$="0" :H$="0":U 
s="0" 
IFX$="C"THENLS="1" 
GOSUB48 : GOTOB38 
C=VAL(C$) : IFC$=CHR$ (13) 
THEN:C$="REST":L=0:H=O: 
GOSUB48 : GOTO416 
IFC$<"@"ORCS$>"7"THENGOS 
UB58:GOTO190 
GOSUB4@: PRINT" (CLR}"Z§" 
{uPJOCTAVE IS{RED}"c 
PRINT" (2 DOWN)&79ENTER 
{SPACE}THE LETTER NAME 
{SPACE}OF THE NOTE 
PRINT"FOLLOWED BY AN 
&59SE73' FOR A SHARP OR 
AN 'E53FE79'FOR A FLAT 





PRINT" (DOWNJKEEP ALL EN 
TRIES LOWER CASE. 
INPUT"(2 DOWN)WHAT IS T 
HE NOTE";NS 

FORJ=0T016 :READAS , N: IFN 
$=ASTHEN390 

NEXT: RESTORE : GOSUB59 
PRINT" {DOWN} PLEASE ENTE 
Ri", "E549C,CS,DF,D,DS,EF 
+E,F",,,"FS8,G,GS,AF,A,B 
F,OR BE73" 

GOTO348 














QM 


JG 


SK 


Ds 


sD 
ED 


ER 


MB 


ac 


KP 


BE 


838 


EP 


DA 


398 


400 


415 


420 


438 


440 
450 


465 


470 


480 


498 


508 
518 
520 
530 
548 
550 


560 
578 


580 
596 


680 
610 


626 
638 


640 


659 


660 
678 


680 


698 


788 


718 


726 


738 


GOSUB40 :X=ASC(LEFTS$ (NS, 
1)) :X=X+128 :WS=CHRS (X) z 
NS=WS+MIDS$ (N$,2,1) 
Q=440*1.95946309T(N-10) 
*2T(c-4) + 86696 :H=1 
NT(V/256) :L=INT(V-(H*25 
6)) 

PRINT" {CLR}"Z$"VALID EN 
TRIES ARE: §531,2,4,8,1 
6,32,OR 64873" 
PRINT" { DOWN) £531£73 

{2 SPACES}FOR A WHOLE N 
OTE OR REST." 

PRINT" £5394E749(2 SPACES} 
FOR A QUARTER NOTE OR R 
EST." 

PRINT" £53328739 FOR A 32 
ND NOTE OR REST, ETC." 
PRINT" {DOWN} PLACE A PER 
IOD AFTER THE NUMBER TO 
{6 SPACES}DOT IT. 

(2 SPACES} {GRN}DOTTED N 
OTES"; 

PRINT" ARE HELD HALF 

(5 SPACES}AGAIN AS LONG 
AS UNDOTTED NOTES. £73" 
PRINTZ$"ENTER £59DE743 T 
© BYPASS THE ABOVE PROC 
SO YOU CALCULATE T 





= 





PRINT" E53DE7JURATION A 
ND PLACE IT DIRECTLY IN 
THE CREATED DATA STATE 
MENT." 
PRINT" (HOME) { DOWN} 
{13_SPACES] {HOME} PLEASE 
ENTER THE NOTE OR REST 
VALUE." 
INPUT U$:U=VAL(U$) 
IFUS><"D"THEN570 
PRINT" ({CLRJENTER YOUR C 
ALCULATED DURATION." 
INPUTDRS$ 
DR=VAL (DRS) 
IFDR<@ORDR> 255 THENGOSUB 
58:GOTO520 
Goro620 
FORJ=0T06 : IF2TJ=UTHEN6G 
8 
NEXT 
GOSUB5@:GOTO490:REM RES 
ECT 
U=128/U:REM ACCEPT 
IFRIGHTS (U$,1)="."THENU 
=U*1.5 
GOSUB4@: PRINT" {CLR} HERE 
IS YOUR NOTE: (4 DOWN)" 
PRINT"OCTAVE({RED} "C$" 
(RIGHTJE73NOTE {RED} "NS 
“B74{2 RIGHT} VALUE 
{RED}"; 
IPDRTHENPRINT" 273 
{6 LEFT}DURATION{RED}"D 
R:GOTO67i 
IFU$="1"THENPRINT"1":GO 
T0678 
PRINT" 1/"U$ 
PRINT" &73(3 DOWN}HIT"," 
E59RETURNE73","TO ADD T 
HE DATA LINE",,"TO THE 
{ SPACE } PROGRAM. 
PRINT, "{2 DOWN] E53ER73" 
,"TO ERASE THIS DATA. 
PRINT"({2 DOWN}E53","R 
873","TO ADD A REMARK T 
O",,,"THE DATA LINE. 
GOSUB7@ : D$=x$ 
IED$="R"ORDS$=CHRS (13) TH 
EN74G 
IFD$="E"THENGOSUB4O : PRI 
NT" {CLR}"Z$:RESTORE: GOT 


0138 
GOSUB5@:PRINT"ENTER £53 

















XE 


KR 


PB 


QE 


KD 


Ps 
XP 


DF 


748 
758 
768 
778 
788 
798 
808 
81g 
826 
836 
840 
8598 


866 
876 


880 


890 
988 


916 


928 


938 
948 


958 


968 


978 


980 


998 


1686 


1016 
1626 


1038 


1048 


19856 


1668 
1676 


1986 


RETURN, E, OR RE73":GOT 


0780 
GOSUB4 :GOSUB49 : T=L: GOS 
UB98:LS=TS$ 
T=H: GOSUB96 :HS=TS$ 
IFDRTHENU=DR 
T=U:GOSUB96:US=T$ 
IFD$<>"R"THEN839 
PRINT" {CLR} "Z$ "MAXIMUM 
{SPACE} REMARK LENGTH 59 
CHARACTERS. 
INPUT"{2 DOWN}WHAT IS ¥ 
OUR REMARK"; R$ 
IFLEN (R$) >49THENGOSUBSS 
:GOTO88B 
GOSUB4G:RS=":REM "+R$ 
PRINT" {CLR} (RED) 
(3 DOWN} "LN"DATA"LS$", "H 
$", "US; RS 
PRINT" {BLK} LN="LN+1; 
IFC$="Q"THEN PRINT":GOT 
0880 {HOME} ":GOTO875 
PRINT" :GOTO130 {HOME} " 
POKE631,13:POKE632,13:P 
OKE198,2:END 
$=54272:PRINT"£73VALUE 
{SPACE]TO MULTIPLY EACH 
NOTE DURATION BY 
{2 SPACES}1{3 LEFT)"; 
INPUTM 
PRINT" {DOWN}WANT MUSIC 
{SPACE}POKED TO RAM?" 
GOSUB76 : IFX$="¥"THENGOS 
UB96 
PRINT" {DOWN}WANT MUSIC 
{SPACE} FILE SAVED?" :GOS 
UB76: IFX$="¥"THENGOSUBL 
6290 
END 
DATAC, 1,CS,2,DF,2,D,3,D 
S,4,EF,4,£,5,ES,6,F,6,F 
1 





S,7,6,8 
DATAGS, 9,AF,9,A,10,AS, 
1,BF,11,B,12 

INPUT" £73{ DOWN) ADDRESS 
{SPACE}TO POKE MUSIC 

{2 SPACES}46960(7 LEFT) 
"BS :B=VAL(B$) 
IFB<8260RB>65535THENGOS 
UB5G : GOTO96S 
PRINT"£79{2 DOWN}DATA I 
S BEING POKED":PRINT"ST 
ARTING AT LINE"B:3=B:GO 
SUB1996 
GOSUB1610:POKEJ, L: POKET 
+1, H: POKES+2, U:J3=J+3:1F 
U>OTHENS9@ 

PRINT"{2 DOWNJENDING A 
DDRESS IS"J:PRINT"MUSI 
C IS IN MEMORY.":RESTO 
RE: RETURN 

READL, H, U: U=U*M: RETURN 
INPUT" {DOWNJNAME OF SA 
VED FILE"; NF! 
PRINT" (CLR} {DOWN} ADDRE 
SS YOU WANT THIS FILE 
{SPACE}TO LOAD AT 

{3 SPACES}LATER 

{2 SPACES}46968 

{7 LEFT}"; 

INPUT AD$:AD=VAL(AD$): 
IFAD<8190RAD>65536THEN 
GOSUB56 :GOTO1040 
HB=INT(AD/256) : LB=AD-2 
56*HB:OPEN2,8,2,"0:"+N 
FS+",P,W" 
PRINT#2, CHRS$ (LB) ; CHRS ( 
HB) ; :GOSUB1699 
GOSUB1G16:PRINT#2,CHRS 
(L) ; CHRS (H) ;CHRS(U); = 
FU>OTHEN1073 
CLOSE2:PRINT"SAVE COMP 
LETE.": RETURN 








PM 1698 FORI=1T034:READU$:NEXT 


:RETURN 


Program 2: Dynamusic Player 
See instructions in article on page 
62 before typing in. 


9E08:20 
9E08:9F 
9E10:A9 
9E18:15 
9E20:8D 
9E28:03 
9E38:C9 
9E38:9E 
9E40:8E 
9E48:CD 
9E58:AD 
9E58:AE 
9E6O :01 
9E68:89 
9E70:8A 
9E78:AD 
9E88:20 
9E88:8D 
9E90:FO 
9E98:8E 
9EAG:A9 
9EA8:8D 
9EBG:9F 
9EBS:9F 
9ECS:9F 
9EC8:AE 
9ED@:8D 
9ED8:AD 
9EEG:9F 
9EES:01 
9EFO:CO 
9EF8:03 
9FQO:EA 
9FO8:AD 
9F19:68 
9F18:FO 
9F26:A0 
9F28:D0 
9F30:AS 
9F36:18 
9F49:8D 
9P48:8D 
9F50:A5 
9F58:85 
9F68:99 
9F68:68 
9F76:08 
9F78:0808 
9F86:00 
9F88:88 
9F98 :88 


2D 
AD 
2D 
63 
14 
58 
oo 
4c 
oF 


FP 


88 88 BB 88 BB 


Program 3: Dynamusic 


Customizer 


Js 


PQ 


xo 
KC 


cc 


FE 


AS 


10 


28 


38 
48 


58 


68 
78 


PRINT" {CLR} (RVS} {BLK} DYN 
AMUSIC CUSTOMIZER{ DOWN)" 
INPUT"NAME OF FILE TO BE 
SAVED" ; NS 
A=40448:S=A:E=40833 
H=INT(A/256) :L=A-256*H:0 
PEN2,8,2,"0:"+NS+",P,W": 
PRINT#2, CHRS(L) ; CHR$(H) 7 
FORJ=STOE: PRINT#2, CHRS$ (P 
EEK(J)); 
IFST>OTHENPRINT"SAVE ERR 
OR. ":PRINT#2:CLOSE2:END 
NEXT:CLOSE2:PRINT"SAVE C 
OMPLETE." 





Program 4: Elite Demo 

See instructions in article on page 
62 before typing in. 

AGBG:08 GB 2D OB OB 2D 77 G7 91 


AGG8:12 61 G8 12 68 O9 12 BE 17 
A@10:3B 12 DF 1D 12 F7 @9 12 DS 
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AQ18:DF 
A826 :69 
A@28:27 
AQ30:8F 
AG38:12 
AG40:43 
AG48:00 
AG50:09 
A@58:3B 
AQ60:0F 
AQ6B:12 
AQ70:2C 
AGO78:DF 
AGB :89 
AG88:1D 
AG9G:98 
AG98:09 
ABA: 1D 
AGAB:77 
AOBO 289 
A@BB:OB 
AGCO: 38 
AGCB:12 
A@DO:15 
AODB:DA 
AGEO:09 
AGES: 11 
AOFO:77 
AOFB:12 
A108 008 
A108:98 
Al16:09 
A118:09 
A126:77 
A128:12 
A130:16 
A1386:C3 
A140:12 
A148:27 
A150:63 
A158:12 
A160 :8E 
A168:00 
A1706:12 
AL78:00 





BEFORE TYPING .. . 


Before typing in programs, please 
refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
which appears before the Program 
Listings. 














DISK LIQUIDATION! 


PREMIUM QUALITY! __5 YEAR WARRANTY! 
JO MILLION, ch Drak MUSTRE SOLD 














a 










MORE DISCOUNT COMPUTER ACCESSORIES! 






FUNITECH osciratei 


Hhewreoaan Perreamett Mass (61 


(800) 343-0472 





Sprite Flip 


Article on page 52. 


Program 1: Sprite Flip 
CH 10 REM COPYRIGHT 1987 COMPU 


SE 


DF 


26 


30 


40 


50 


EA ,60 


HR 


BA 


78 
80 
98 
100 
110 
120 
1308 
140 
150 


160 
170 


188 


198 
200 


210 
220 
230 
240 


250 
260 


270 
280 
298 
308 
310 


320 
330 


340 


TE! PUBLICATIONS, 

LL RIGHTS RESERVED 
POKE 53280,0:POKE 53281, 
@:PRINTCHRS$(14)"{CLR} 
{DOWN} R83CREATING ML. 
FORT=49152T049329: READH: 
POKET, H:CK=CK+H: NEXT 

IF CK¢>25249 THEN PRINT 

{SPACE}"ERROR IN DATA." 

DATA76 , 68, 192,76, 65,192 

DATA165 ,251,72,165,252,7 
2 


INC. A 





DATA32, 145,192, 32,54,192 

DATA160,0,162,60,32,46 

DATA192,32,46,192,32,46 
DATA192, 262, 202, 202, 202 
202 
DATA202,16,239,104,133, 


DATA164,133,251,96,189, 
180 
DATA192,145, 251,200,232 


796 
DATA160,63,177,251,153, 
186 

DATA192, 136,16, 248,96,5 
6 


DATA176,1,24,169,0,105 
DATAG, 141,178,192,165,2 
51 
DATA72,165,252,72,32,14 
= 
DATA192,32,54,192,160,0 


DATA185,180,192,72,185, 

182 

DATA192,153,180,192,104 
153 


DATA182,192, 208, 200, 200 
1192 
BETA CCH ZEB 235,160,63,1 


DATA180,192,174,178,192 
1208 
DATA39,162,7,74,46,179 
DATA192, 202,16, 249,173, 
179 
DATA192,145,251,136,16, 
231 

DATA104, 133, 252,104,133 
+251 

DATA96, 169,8,133,251,13 
4 


DATA252, 70, 252,102,251, 
78 

DATA252, 162, 251,96,162, 
7 


DATA74,8,74, 46,179,192 
DATA4G, 46,179,192, 202,2 
62 

DATA16, 242,48, 208 


Program 2: Sprite Flip Demo 
BQ 10 REM COPYRIGHT 1987 - COM 


XH 
DE 
xx 
EK 


SP 
FQ 


20 
30 
40 
50 


60 
7 


PUTE! PUBLICATIONS, 
ALL RIGHTS RESERVED 
DATA 6,6,0,127,192,0,127 
7192 

DATA 0,126,6,8,127,6,8,1 
19 

DATA 128,6,115,192,6,113 
1 224,08 

DATA 0,240,0,6,120,0,0,6 
) 

DATA 0,6,30,0,6,15,0,0 

DATA 7,128,6,3,192,0,1,2 


INC. 








SK 
MK 


PE 


AF 


AR 


HQ 


cs 


HP 


JB 
PE 


PH 


PC 


24 
88 DATA G,G,248,6,0,126,0,0 
96 DATA 60,0,0,36,0,0,12,25 
5 


108 
110 
120 
130 
140 
156 
168 


17 


188 
198 


201 


3 


210 
220 
230 
240 


250 
260 
270 


280 
290 
3008 
310 
320 
338 


348 


350 


368 


370 


380 


398 


400 


410 


420 


430 


440 
450 


460 


470 


DATA 162,162,100,162,10 
2,108,102,102 

DATA 100,102,102,100,10 
2,102,100, 162 

DATA 102,100,102,102,10 
8,162,102,100 

DATA 162,102,100,102,18 
2,108,102, 102 

DATA 160,102,102,100,25 
5,254,100, 238 

DATA 238,100,251,190,10 
6,238, 238,100 

DATA 251,190, 100,238, 23 
8,100, 251,190 

DATA 100,238, 238,100, 25 
5,254,100, 250 
POKE53280 , 0: POKE53281,0 
PRINTCHR$(142)"(CLR)":F 
ORD=1T024: PRINT" {DOWN} " 
:NEXT 


PRINTSPC(5)"({WHT}UDI CO 





PRINTSPC(5)"JFK ALL RIG 
HTS RESERVED” _ 
FORX=1T015 : PRINT" (UP}"; 
:NEXT 
PRINTSPC(11)"€79SPRITE 
{SPACE}FLIP DEMO{OFF}" 
FORD=1702500 :NEXT 
POKES3280, 0: POKE53281,0 
:PRINT" (CLR) 
PRINTCHRS (14)"§89":V=53 
248 : FORS=832T0958 : READX 
POKES, X:NEXT 
POKE2040, 14: POKE2041,13 
POKEV+21,7 
POKEV+40,5 
POKES3277,3:POKE53271,3 
POKEV, 240 : POKEV+1, 202 
POKE53276, 1: POKE53287,1 
POKES 3286 , 6: POKE53285, 
2 
POKEV+2, 70 : POKEV+3 , 202 
PRINTCHRS (14)"(CLR} &89 
(pown}" 
PRINT" {RIGHT} THIS MACHI 
NE LANGUAGE ROUTINE WIL 
L" 
PRINT" {DOWN} (RIGHT }MAXI 
MIZE THE POTENTIAL OF Y 
OUR SPRITE" 
PRINT" {DOWN} {RIGHT} DATA 
IT ALLOWS YOU TO FLIP 
SPRITES" 
PRINT" (DOWN} {RIGHT} VERT 
ICALLY OR HORIZONTALLY. 
THEREFORE," 
PRINT" (DOWN) {RIGHT} YOU 
(SPACE}CAN PRODUCE FOUR 
SPRITES FROM ONLY" 
PRINT" (DOWN) (RIGHT } ONE, 
{SPACE}DEFINITION. ANIM 
ATED SPRITES ARE" 
PRINT" {DOWN} {RIGHT} POSS. 
IBLE WITHOUT USING VALU 
ABLE MEMORY." 
PRINT" {DOWN} (RVS] PRESS 
(SPACE}(H)ORIZONTAL OR 
(SPACE}(V)ERTICAL TO FL 
Ip" 
GETAS: IFAS=""THEN440 
IFA$="H"THENPOKE781 , 13: 
SYS49152: POKE781,14:SYS 
49155 :GOTO449 
IFAS="V"THENPOKE781, 13: 
SYS49158:POKE781,14:SYS 
49158:GOT0440 
GOTO448 














(Gai 


— wes 
== 
Ss 








‘© SUPER SNAPSHOT works on the C64 or the C128 in the 64 mode! 

© Will copy 99.9% of all memory resident software on the market today! 

© SUPER SNAPSHOT files will run without the cartridge being plugged 
int 

© No experience required thanks to our window driven user menus! 

© Allows you to combine several different programs onto a single disk! 

© 24K on board—easily expandable to 40K with plug in EPROM’s! 


VE DONE IT AGAIN! } 


The programmers who created Snapshot 64, the hottest “memory cap- 
ture” utility on the market, have done it again! Introducing SUPER 
SNAPSHOT, the ultimate cartridge for the C64/C128. 

SUPER SNAPSHOT combines several different functions into one revo- 
lutionary new cartridge. First and foremost, SUPER SNAPSHOT is a state- 
of-the-art memory capture device. This means that you can load a program 
into your computer's RAM and, at the touch of a button, capture an exact 
image of your computer's memory. That image can then be saved to disk, 
allowing you to make working, UNPROTECTED backups of your software! 
And that's just the beginning—here're some of the highlights of this incredible cartridge: 


© The special built in DOS wedge commands will support devices 8, 
9, 10 and 11. 

* Our ROM-based machine language monitor will NOT corrupt memory! 

* Unique RESUME feature lets you flip in and out of running programs! 

* Hi-res screen dump works with 1525, 1526, & compatibles like Epson 
& Gemini! 

© SUPER SNAPSHOT also works with all aftermarket disk drives tested to 
date, such as the MSD, FSD, Enhancer, and more. 


© Our TurboDOS is the most compatible fast loader we've ever tested! 
© Special Bonus: 40 FREE customed designed Kracker Jax parameters complete with fast copier. 

Why buy a separate cartridge for each major function? A fast loader cartridge. A machine language monitor. A screen 
dump. DOS wedge commands. A memory capture utility. What would it cost for four or five cartridges, not to mention an ex- 
pansion board to hold them all? Thanks to SUPER SNAPSHOT, you'll never have to find out! SPECIAL OFFER FOR SNAP- 
SHOT 64 OWNERS: Send us your working Snapshot 64 cartridge (with the original owner's manual AND the function key 


overlay card) in good, working condition with your order for a $10.00 discount off the price of the new SUPER SNAPSHOT! 
Mail your order to: Computer Mart 
DEALERS—Don't miss out 
aot Same day shipping 
dU. 
K ‘Canadiana may order from: Marshview Software, P.O. Box 1212, Sackville, N.B. EA 


This offer applies only to direct orders. SUPER SNAPSHOT 64/0NLY $49.95 
2700 NE Andresen Road/Vancouver, WA 98661 
PLEASE NOTE: Free. shipping & handil i orders: ¢ COD oedere rast add $2.00 to total order. WA residents must add 7.3% sales tax. 
























‘Need more info? Cal or CHECKS, MONEY ORDERS OR VISA/MASTERCARD. 
GOMPUTER write for our free catalog 
MART Phone orders welcome: 206-695-1393 
‘Sorry, no COD orders accepted from oul ngs.» Overseas orders please add $5.00 per unit 











FSD-2 
EXCELERATOR + PLUS 


Commodore Compatible 
Disk Drive 





Faster, Quieter, More 
Compact and More 
Reliable Than the 
Both spooch culput en 1541 & 1541C! 


‘and voice recognition with this single hardware product! Your voice $ 
NOW ONLY 159 


Guaranteed 100% Compatibility 
Iteven enhances GEOS! 


Full One-Year Warranty 


MAN-TO-MACHINE 
COMMUNICATIONS 


There is nothing else like 








controls programs, or home appliances, robots, and more with spoken 
Commands. Verbal response back gives status. vetifies, or requests your 
reply! Speech output and recognition pattems are recorded in with your 
voice. Or use the voice of your friend, boss, teacher, mother. even the 
family pet! Programming is simple with new commands added to BASIC 





‘A music bonus program lets you write ond compose musical scores 
simply by humming the tune, Unlimited applications for fun, education, 
‘and commercial use. Design your own programs for profit, Speech and 
tecognition quality unsurpassed by even the most sophisticated 
machines. Only Covox provides this high-tech marvel ata priceless than 
most common peripherals 


The Covox Voice Master comes complete with all hardware and software 
for only $89.95. (Add $4 shipping and handling for USA, $6 Canada, $10 
overseas.) Available for Commodore 64/128, Appie lit, ic, lle, Atari B00, 
800XL, 130 XE. Specify when ordering. Visa, MasterCard phone orders 
‘accepted 


Advanced Direct 
Drive Technology 
Comes Ready to Run and Works 


Smooth ith the Commodc 
Setietection Guaretitead Beret 16 20,Pus 4c 128 


Fast Delivery 64 mode) and 16. 
CALL NOW TOLL-FREE 


1-800-356-5178 





Call or write for FREE Voice Master Infopak 
‘and special combination package olfers. 


COVOX INC., DEPT. CG 


675-D Conger Street _* Eugene. Oregon 97402 * USA 
‘Aro Code (503) 342-1271 ® Tolex 706017 (Av Alarm UD) 


Emerald Components International 
Dept. C, P.O. Box 1441, Eugene, OR 97440 





Customer Service: 503/683-1154 
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oe BULL’S-EYE 
“a 
SO GOOD, 


EVEN WE CAN'T BELIEVE IT. 


Think of the best disks in your library; the very best 
‘ones, the cream of the crop. Chances are, those 


‘BULL'S-EYR was created for only one reason: to 
back up the impossible. To archive the programs 
that are protected with the n toughest 
routines on the market. 


We'd like to go into more detail, but we can't—t 
titles are 80 hot, we can’t mention their names in 
this ad, But you know the ones we mean, Just think 
of the biggest names in software. Think of the most 
complex and effective protection schemes you've 
ever run up against. Now think of the very best 
archival software on the market today. 


BULL'S-RYB—from Kracker Jax. 


ONLY $19.95 


KRACKER JAX® 


A REVOLUTION IN 
ARCHIVAL SOFTWARE! 


Kracker Jax is the powortul parameter copy system 

that is taking the country by storm! What IS a 

parameter! It's a custom program that allows your 
1541 oF 1571 disk drive to strip all copy protection 

from your expensive software, leaving you with 

UNPROTECTED, TOTALLY BROKEN backups that 

can even be copied with a simple fast copier 

+ Kracker Jax |s tho BEST program of Its kind! 

* Kracker Jax will back up tiles that the nibblers 

ANT! 

* Kracker Jax requires NO special knowledge to 
operate! 

* Kracker Jax strips protection in a matter of 
SECONDS! 

* Kracker Jax Is priced RIGHT—Just $19.95 per 
Volume. 

¢ Ersoker Jax ls UNPROTECTED— ony to back up! 

+ Kracker Jax updatos aro avallablo QUARTERLY! 


VOLUME FIVE INCLUDES A POWERFUL 
NEW C64/C128 FAST COPIER! 


ALL NEW VOLUME FIVE 


VOL. 1-4 STILL AVAILABLE. 
ONLY $19.95 EACH! 





\\7HACKER’S 
2 
—NY ouriniry KIT 


Ze 


‘Ate you ready to take control of your software? Let 

us help! Our Hacker's Uulity Xit contains the most 

impressive array of tools ever assembled in a single 

package! You get: 

*WHOLE DISK USAGE/ERRORIDENSITY 
SCANNER—get needed info fast! 

*GCR EDITOR—view raw di 
computer reads. 

+ FAST DATA COPIER—won't write errors! 

+1. OR 2 DRIVE NIBBLER—state of the art! 

* FILE TRACK AND SECTOR TRACER—find any 
‘sector link in a file fast! 

* BYTE PATTERN FINDER—scan the disk for any 
pattern you choose! 

* CUSTOM COPIER CREATOR—the only one ofits 

ni 

‘+ RELOCATABLE MIL MONITORS—including drive 
monitor! 

* FAST FORMATTER—programmable tracks or 
whole disk! 

* DISK FILE LOG—quickly find file start and end 
addresses: 


‘So how good is this package? Just remember that 
it’s put out by Kracker Jax, the people who live at 
the cutting edge of archival technology. That's how 


seeets" ONLY $19.95 


the way your 








KRACKER JAX® REVEALED! THE BOOK 


At last—Xracker Jax takes you beyond the protection barrier, The secrets of un- 
protecting software are yours with Kracker Jax revealed! 
We'll show you exactly how to defeat five diff protection 
Ncompassing scores of current programs. Our tutorial has tw 
implas to lead you step by step, to a new level of knowledge. Hi 
got: 
* Kracker Jax revealed. * A reset switch. « A utility disk, * 20 parameters on disk. 


ichemes, 
cite 
what you 





ONLY $23.50 COMPLETE! 
Please allow two weeks for delivery 


THE SHOTGUN 


Those of you who have used our Kraeker Jax parameters know 

thoy are. Gan you Imagine the kind of nipbier we could put out? 

have to imaging It because it's HERE! TO" SHOTGUN, our new pr 

utility, is available two ways: 

* NHR SHOTGUN by itselt—ottered to you at the unheard of introductory price of 
only $14, 

+ THE LOADED suoTOUM—Packaged WITH 32 of the most popular Rracker 
Jax paramot tod—only $19.95! 

Whichever version you order, you'll find 208 SHOTGUN to be loyal to the Kracker 

‘Jax tradition of more quality for loss money. 








THE C-128 CANNON 


No, we don't have the frst graphic label ulity on the mark 
Wizard is the hottest graphl 

Master, of your own custom graphics! * Print a graphic & up to 8 lines of text on a 
Pop-up menuslinclu 
‘Commodore compatible dot 


Use Print Shop, 


's the package you C-128 owners have been 
tandard label! * U: 


ing for! The C-188 CAIROM gives you more po 
‘you ever hoped for! Just look at some of th 


* NIBBLER—Works with single or dual 1571/1541 
drives! 

+ FAST COPIER—Gre: 
Kracker Jaxt 


for data disks or use with 


labels need 


oF 
nipulation easy! 
+ 1981 FAST COPIER—For use with the new high 





2 NEW= tHE GRAPHIC LABEL WIZARD 
oe 


'—but we have the best one! Without doubt, the 
ic label program around! Check out some of these features: 


tra graphics/saves labols onto disk! * Works with both Epson 
tx printers! * Will print different appropriate printers! 
nt graphics on screon at one tim rogramming for ultra: 

CATALOG foatur 18 of your Print Shop, 


(ings that tho Graphies Label Wisard can do! So the next time your custom 


ju 
Special touch, just summon up a tittle magic—trom the Wizard. 


ONLY $24.95 





‘Speed 3.5" drive! 
1 FILE COPIER—For high speed file manipu- 


lation! 
* MEM COPIER—Copies unprotected IBM and CPIM 
aks) 

+ T1S EDITOR—Works with 1541, 1571, and the now 
1581 drives! 

* ERROR SCANNER—Complote with on-screen 
aippiayt, 

‘DENSITY SCANNER—Check for altered densities 
rack by track! 

* DIRECTORY EDITOR—Alter & organize your disk 
directories! 

* KRACKER JAX—You also got 100 of our most 
popular parameters! 

You've seen nibblers alone that sold for thirty-five or 

forty dollars. And the 100 Xracker Jax parameters aro 

a twenty dollar value. Yet tho ENTIRE C-188 CANNON 

Utility package solis for just $34.95. Never before has 

this much power and control been integrated into a 

single, affordable product. If you own a C-128, you 

deserve the C-188 CANMOM! 


control over your a 
+A NIBBLE 


Start getting the full 





640 disk directories: 


— kin 
‘manipulation! * A SECTOI 
transfer errors—pertect for use with data disk or Kracker Jax parameters! » AUTO MODE—drive can copy 
without computer connected! * SPECIAL BONUS—you get 32 {ree Kracker Jax paramotors| 

formance that your MSD drives are capable of delivering. You alr 
the finest drives avallable—so why sett 


Get the most out of your special equipment—only $34.95! 


U1 you had the time and aki to create your own custom disk catalog s 
wildest dreams, It probably STILL wouldn't have all the features of SUPER CAI For example: « 

1280 with 2 drives! « Index & alphabetize over 5000 tities — 10000 with 2 drives! 
ID's are NOT necessary!/A printer is NOT 


THE MSD DUAL CANNON 


MSD owners aron't loft out in the cold anymoro! The all now MED DUAL CAIMOM gives you stato of the art 
Cod equipment! You got: 
WA UP Your protected programal » A FILE COPIER for eas 


{ile maintenance and 


EDITOR—devoloped just for the MSD dual drive! * FAST COPIER—that WON'T 


know you own 
lle for anything less than the best utilities made for them? 


SUPER CAT 


the paramount system of your 
talog up to 

nique 
uired! © Find ANY title in 10 seconds—sort 1000 titles in 8 


seconds! * Automatic entry with Selection, Edit, and Cross Ref, options! 


comprehensive out 


C-128 owners, this Is the paceace comp 
y 


of your dreams—only $34.95 


SUPER CAr has literally oo many features to fit in here. From the easy, menu driven work screens to the 
i Options, SUPER CAT Is the most powerful and complete disk catalog system a\ 


Hable 


The ultimate software library index system—only $24.99 








BASIC PROGRAMMERS—CONTACT US ABOUT “ON-LINE HELP!” 





Need more into? Call or 
write for our tree catalog 


Program submissions wanted! 
Good Commissions— 
National Marketing, 


GOMPUTER mart 


PLEASE NOTE: Free shipping & handling on all orders * C.O. 





CHECKS, MONEY ORDERS OR VISA/MASTERCARD. 
Mail your order to: Computer Mart, Dept, | 

2700 NE Andresen Road/Vancouver, WA 98661 
Phone orders welcome; 206-695-1393 

‘Same day shipping/No C.0.0. orders outside U.S. 





add $3.00 to total order» All orders must be paid in U.S. funds. 


DEALERS—WE HAVE THE SUPPORT YOU’RE LOOKING FOR! 





ATTENTION C-128 OWNERS! 


FEEL NEGLECTED? 
NO 80-COLUMN GRAPHICS 
SOFTWARE? 


The Commodore C-128 is the most powerful and flexible 8-bit 
microcomputer yet released to the public, Unfortunately, there is 
little software available for its native 80-Column mode; and most of 
that is Productivity software using only the Text Character Display, 
not the true 80-Column Hi-Res Graphic Display which the 
machine is capable of producing. 

Commodore originally intended the C-128's 8563 Video Display 
Chip to support 80-Columns only in Text mode, not Graphics. 
While standard C-128 Basic takes full advantage of the 40-Column 
graphics capability of the machine, there is almost nothing which 
allows the Basic programmer access to the 80-Column Graphics 
mode (Yes, there is an 80-Column Graphics model). 


TIRED OF WAITING FOR YOUR 128 TO 
COME ALIVE? WAIT NO MORE. 
BASIC 8 IS HERE! 


Patech Software is proud to introduce Basic 8 with Basic Paint, 
the first C-128 software package specifically designed to unleash 
the hidden graphics potential of your Commodore C-128. Using a 
special wedge technique, Basic 8 achieves performance rivaling 
that of 16-bit micros! Imagine your 128 producing resolution of 
640 x 200 in monochrome and 640 x 192 in 16 colors without 
additional hardware! Basic 8 provides the Basic programmer with 
the most powerful and productive graphics system ever devel- 
oped for an 8-bit microcomputer! 


A NEW HI-RES 3-D GRAPHICS 
LANGUAGE FOR THE C-128 


Basic 8 adds over 50 Hi-Res graphics commands to Basic 7.0 and 
is completely compatible with its advanced non-graphic com- 
mands. You work in a true 3-Dimensional environment, control- 
ling such parameters as perspective, viewing angles and the 
origin & depth of the view, Just select one of many graphics 
modes and draw 3-D lines, dots, circles, boxes, variable arcs and 
a multitude of complex solid shapes with a single command. 
Switch easily between any of the 32 pre-defined graphic screens, 
scroll a screen, save and load multiple screens as brushes, define 
a logo, paint with exotic color patterns of your own design and 
print hard copy of your screens in various sizes and in color! 
We've even added commands for graphic cut & paste functions, 
brushes, windows and fonts along with ultra-sophisticated con- 
cepts like multidraw, grow, shearing, scaling and much, much, more. 
More than a mere extension of Basic 7.0 - Basic 8 is a total 
Development System which provides a whole new and exciting 
programming environment. Chances are that if your graphic 
imagination can see it, Basic 8 will let you do it!. 


BECOME A PUBLISHED SOFTWARE DEVELOPER! ENTER THE BASIC 8 
PROGRAMMING CONTEST. WIN THE GRAND PRIZE OF $1,000.00 AND 
PATECH SOFTWARE WILL PUBLISH YOUR PROGRAM! Three Other Cash 


Prizes To Be Awarded. Details Included In The Basic 8 Package. 


Mail your order to: 

Computer Mart, Dept. S # 2700 NE Andresen Road * Vancouver, WA 98661 
Phone orders welcome: 206-695-1393 

Same day shipping/No C.0.0. orders outside U.S. 

CHECKS, MONEY ORDERS OR VISA/MASTERCARD. 

PLEASE NOTE: Free shipping & handling on all orders ¢ C.0.D. add $3.00 
to total order # All orders must be paid in U.S. fun 


UNHEARD-OF RESOLUTION AND 
SU RHING COLOR DISPLAYS ON YOUR 


Pixel Resolution (screen size) and Color Resolution (color cell 
size) are determined by available Video RAM. The C-128 has 16K. 
This can be upgraded to the 64K of the C-128D. 

The unexpanded C-128 produces a full 640 x 200 screen in 
monochrome and a maximum of 640 x 192 in color with an 8 x 16 
dot cell, Increasing color resolution (smaller cell) decreases 
screen height. (Dot size remains the same throughout) The most 
useful screen is 640 x 176 with an 8 x 8 cell, That's stil pretty 
impressive! (The C-64 has 320 x 200 with the same cell, you use 
a 640 x 152, you can double the color resolution to 8 x 4, The 
resulting displays are absolutely stunning! 

The 64K Video RAM allows the full 640 x 200 screen with an 8x2 
cell (we doubled it again, this time with a full screen!) Several such 
screens can reside in Video RAM simultaneously, each with dif- 
ferent resolutions. You can view one screen while working on 
another and create Virtual Screens (larger than the displayable 
6340 x 200) in Video RAM. 


BASIC PAINT - AN 80-COLUMN COLOR 
DRAWING PROGRAM! 


To demonstrate the power and versatility of this new graphics 
language, we have created Basic Paint, a flexible icon-based, 
mouse driven, 80-Column color drawing application with menus, 
fonts, brushes, patterns and requestors, Basic Paint is written in 
Basic 8, so that screens you create with it may be saved for use in 
your programs, 


BASIC 8 GROWS WITH YOUR SYSTEM 


Basic 8 supports all C-128 hardware upgrades and expanders. 
Each time you up-grade your system, Basic 8 is ready and waiting 
with even more graphic power than ever! 

Special printing features include color printing, 90° rotatable 
screens and variable dot density selection, The 64K Video RAM adds 
printing of entire Virtual Screens with the full page being dot address- 
able, Results are limited only by the capabilities of your printer. 


¥%& ALL THIS GRAPHICS POTENTIAL * * 
IS YOURS AT THE INTRODUCTORY 
PRICE OF $39.95 


Includes: A 180-page Users Manual, the unprotected Basic 8 
Program Disk which creates Basic 8 Work Disks (with complete 
Editor System), Basic Paint Work Disks and Basic 8 RunTime 
Disks (lets you load and run your creations independent of Basic 8 
using the included WORKBENCH utility). 

Requires: C-128 or 128D, 80-Column RGB Monitor & at least one 
Commodore compatible Disk Drive. 

Supports: Expanded Video RAM (to 64K), Both RAM Expanders, 
The 1851 Proportional Mouse, Joysticks and most Dot Matrix Printers 
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GREAT SAVINGS ON 
LEATHER ATTACHES 


Unsnaps for an 
extra 114” depth! 


E-X-P-A-N-D-A-B-L-E 
LEATHER BRIEFCASES 


Make a bold, new impression at your next 

business meeting. Order this set of TWO 

cases for the look and feel of designer 

attaches...without the high price, due to 

our special arrangements. 

© TWO Factory New, First Quality Cases 
for ONE Low Liquidation Price. 

© Rich Pigskin-Like Interior, Plus Generous 
Organization Pockets 

© Combination Locks Offer Security. 

© Choose Burgundy or Black. 

Large Case. It's 13" H x 18%" Wx 4%" D 

and easily expands an extra 1%" in depth if 

you need more room. 

Banker's Case. Pertect for meetings where 

you need only a few documents. 11" H x 

16/4" W x 2%" D. 

Shop and compare! You'll discover thisis a 

great buy for TWO cases! 


.$229.00 


+59 


Peres 
Credit card customers can order by 


Compare At .... 


Liquidation Price 
For Setof TWO . 


phone, 24 houre a day, 7 days a week r] 


} Toll-Free: 1-800-328-0609 I 
I 


Sales outside the 48 contiguous states are subject to 
BL ___ 82212! conditions. Pease calor wnte 


I senv to: tem H-2538 ff 
J SEI Direct Marketing Corp. 
1405 Xenium Lane N/Minneapolis, MN 55441-4494 | 
| ‘Send Leather Brietcase(s) at $59 per set, plus $5.75 per set 
1 ship, nanding. (Minnesota resigonts add 6 sales ta 
[Son no Soo Story 
Sond Burgundy, tom H-2630-7097-518 
Sond Black, Hom H-2598-7072-648 
1 My chock or money order is enclosed. (No dolays in 
processing orders paid by check) 


Woe OSS 063] ogg ORR 
aE 


Acct No, 
PLEASE PRINT CLEARLY 


[rane 
Assess —————— ee AR 


0. 
SS A A SS ON 


“I Saved Time & Money with 
PHYSICAL EXAM” 


Disk drive read errors are a 
frustrating waste of time! I use a 
data base to keep records for our 
club, Last week I experienced 


1541 Physical Exam Sample Screen 


read crrors on my disk drive. 
Luckily I have a 1541 Physical 
Exam program. The alignment 
test confirmed what I had 
suspected, my drive was out of 
alignment. I am happy to report 
that 1 aligned my drive 
MYSELF. I avoided the wait for 
repair and paid a fraction of the 
cost. 


Package includes: @ True digital alignment disk with offset tracks. 
@ Mechanical Stop Test © Speed Test @ Illustrated manual with 
instructions for performing alignment, adjusting speed and stop 
position. © Print test results for future reference. 

Physical Exam is available for these drives: 1541, 1571, 8050, 8250, 
4040, SFD 1001. Please Specify Drive! $39.95 EA. + SHIP. 

See Reviews in: Run Special Issue #3, 1/87, p.83; Info #11, Aug/Sept 86, p.46 Mid- 


nite Gazette, April 1986, p. 19. 
Cardinal Software Order Toll Free 10 - 4 MON-SAT 


ua er 800 762-5645 & 


Woodbridge, VA 22191 
Info: (703) 491-6494 








PHONE 
THE LOWEST THE BEST 


paces” seavce. «© ELECTRONIC ONE* Grew Tefen 


CALL (614) 864-9994-° P.O. Box 13428 * COLUMBUS, OHIO 43213 


‘SOFTWARE 
SPECIALS 
CHAMP WRESTLING — 18,99 
MARBLE MADNESS 18.99 
LORDS OF CONQUEST 24.99 
SKY FOX 24,99 
BARO'S TAIL 2699 
ONE ON ONE 1199 
MAIL OROER 
MONSTER 1.9 
ACE OF ACES 18.9 
ARCTIC FOX 249 
KILLED UNTIL DEAD 18.99 
HGH ROLLER 18.99 
AMERICA’S CUP 24.99 
TOUCHDOWN 


OMMOdore  sorwane 


HARDWARE ‘ACE OF ACES 
G4C64KCOMPUTER 15999 HEART OF AFRICA 
128 128k COMPUTER 229.99 ONE ON ONE 
1S4IC DISKDRIVE 16999. FLIGHT NIGHT 
'S7ICDISK DRIVE 239.99 TOUCH FOOTBALL 
18020 MONITOR 189.99 KARATE CHAMP 
1902A RGB MONITOR 269.99 SILENT SERVICE 
COMPUTER ACCESSORIES TAG TEAM 
1351 MOUSE 9.99 WRESTLING 
RS 232 INTERFACE 39.99 LEADER BOARD. 
MESSENGER MODEM 34,99 GUN SHIP 
AVATEX 1200 MODEM 79.99 SUBLOGIC FOOTBALL 
AVATEX 1200HC SUBLOGIC BASEBALL 
MODEM 109.99 UPPERISCOPE 
XETEC JR 99.99 SUBBATTLE 
XETEC SR $6.99 GAME STAR 
PRINTED rea 
STARNXIO 199.99 spy vs spy 
STAR NX100 210.90) KanaTena 
FORTIS OM 1310 COMMANDO 
(130CFS) 100.99; AOToOUAL 
STAR POWER TYPE 16999 Banos TALEW 
PANASONIC 1081), 189.99 GuegrmaSTen 
PANASONIC 10911 .250.99 “Dor 
SEKOSHA1000VC__169.29_ igh saa 
CALL FOR eT 
DISKETTES JOYSTICKS 
ACCESSORIES 


MACH 128 
FAST LOAD 
TURBO LOAO & SAVE 
WORO PRO 

W/TURBO. 
WORD PRO 

126 WFILE 
SPREADSHEET 
FILE PRO 64 FOOTBALL 1.9 
POWER C VOHIMATAJUDO 189 
PAPERCLIP W/SPELL AIST 18.9 
SUPERBASE 64 PARALLAY 18.99 
SUPERBASE 128 FLIGHT SIM I 29.99 
POWER ASSEMBLER SILENT SERVICE 2299 
POCKETWRITER 64 LEADER BOARD 29 
CERTIFICATE MAKER. DEADLINE 499 
DATA MANAGER 126 SATINS’ HOLLOW 49 
WORD MANAGER 128 RALLY SPEEDWAY 4,99 
‘SWIFT CALC 128 HARDBALL 18.98 
SWIFT TAK ‘MICRO LEAGUE 
PAPERCLIP I BASEBALL 49 
SKY FOX copy I SUPERBOWL SUNDAY. 18.99 
ARTIC FOX TOY SHOP SUPERBOWL STATS 14,99 


HOW TO ORDER: CASHIER CHECK, MONEY ORDER, MASTERCARO" OR VISA" (ADO 4% FOR CHARGE CARDS). NO PERSONAL CHECKS. 

NOC.0.0.'S... SHIPPED U.P.S, ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE 
SHIPPING: ADD $3.00 ON ALL ORDERS UNDER $100.00 . .. ADO $5,00 ON ALL ORDERS OVER $100.00, ACTUAL FREIGHT CHARGEO ON 
MULTIPLE ORDERS, 
INTERNATIONAL: ACTUAL FREIGHT CHARGED ON ALL ORDERS OUTSIDE THE CONTINENTAL UNITED STATES INCLUDING A P 0. 
POLICIES: NO RETURNS WITHOUT A RETURN AUTHORIZATION ... NO RETURNS UNLESS DEFECTIVE. ALL DEFECTIVES WILL BE 
EXCHANGED . .. NO EXCEPTIONS. PLEASE SPECIFY 

‘CALL OR WRITE FOR FREE CATALOG 


CALL ELECTRONIC ONE (614) 864-9994 OR WRITE 





SOFTWARE DISCOUNTERS 
OF AMERICA 


Free shipping on orders 


For Orders Only — 1-800-225-7638 over $100 in continental USA 
PA Orders — 1-800-223-7784 © No Surcharge for VISA/MasterCard 
Customer Service 412-361-5291 Your card is not charged until we ship 


ABACUS SOFTWARE Power $9.88 26 YieArKungfu2......$19 Ultima THUNDER MOUNTAIN 
Assembler Monitor Spy vs.Spy 1&2 ....$9.88 ! MASTERTRONIC PERSONAL CHOICE Cyrus Ches 
Destiny Knight... $26 Action Biker $6.88 lamthe C128 Golf 
Blazing Paddles .....$23 Chessmaster 2000. $26 Bounder $6.88 Lamthe Cod Rambo 
Video Vegas $19 Lords of Conquest $23) Captain Zap. $6.88 Term Paper Writer 120 The Eliminator, 
Cad Pak 126 JERKELEY SOFTWORKS: Murder Party $23 Electra Glide $6.88 PROFESSIONAL Top Gun 
Chart P. “a $23 Infinity Machine (R) $9.88 — Ficet Filer 64.4 128. TIMEWORKS 
Cobol, $39 $23 S-ASide Soccer Fleet System 2 Acts, Payable 
Cobol 128 333 $26 Knight Games Fleet System 312 ‘Acts. Receivable 
forth *Geos Desk Pak 1-523 i Fleet System 4128 Data Manager? 
wer Plan 'GeoDer $25 $26 i RELEVANT Data Manager 128 
M *GeoFile $33 Scrabble 323 Nin} Billboard Maker General Ledger 
M128 “Geos Font Pak $19. Starfleet $26 Icon Factory Inventory Mamt 
Speed Term 64 or 128 *Writer’s Workshop... $33 World Tour Golf 325, Photo Partner 64 (R) 
Super C tpyx i SHARE DATA Partner 126 (R) 
sepet Cias C jt Baliblazer 39.88 Family Feud Swiltcale/Sideways(D) $25 
Super Pascal Champ. Wrestling 323 feaps Swiltcale/Sideways 128 $43 
Business Form Shop Create A Calendar. $19 Wheelol Fortune Sylvia Porter's Personal 
Turbo Load & Save (R) Destroyer $23 MICROLEAGUE SIMON & SCHUSTER Fin, Planner 64... $3 
BRODERBUND Fast Load (R) $23 Baseball oe Sylvia Porter's Personal 
for World Class L. fank St. Writer $33 Gateway to Apshai $6.88 Box Score Stats esate res Fin, Planner 128... $43 
‘Mach 128 (R) Carmen Sandiego: Impossible Mission $6.68 General Manager Alrslane Corot Word Writer 3 333 
USA s25 let Combat Simulator 314 1986 Team Data Disk gp AirplaneConst,.---9.88 Word Weiter 120... 343 
World $23 Koronis Rift 59.88 MICROPROSE Prophecy UNICORN 
Karateka $19 Movie Monster S14 Acrojet Typing Teter} Animal Kingdom $19 
hedaman $2) Multiplan 128 525. Conilict in Viet Nam sOrTsyne Decimal Dungeon $19 
Leader Board Print Shop 526 Pitstop 2 $9.88 F-15 Strike SPE Fraction Action. $19 
AECOLADE P.S. Companion, $23 PS. Graphics Scrapbook Gunship. rope ity Percentage Panic 319 
Ace of Ac 0-5. Graphics Library A: Sports Kennedy Approach Race Car Rithmetic $19 
Comics Mion}. S6ta, ‘OM the Wall Pirates. Personal Accountant $23 Yen ite Robots. 319 
Bt Night 5. Graphics Library 13:School Silent Service Tile 38a: UNISON WORLD 
Hardball Holiday Edition. $16 cue on Fractalus $9.88 Top Gunner ArtGallery For? $16¢a, 
Killed Uni Dead Toy Shop $16 Steet Spots say MINDSCAPE Print Master Plus $23 
ACTION SOFT cms ave Bop & Wrestle $19 VALUE TIME 
Thunder Chopper EMS Accounting ....$119 Basketball Call Defender ol the Crown $25 Letty Scrambler) Ait library 10r2.. $6.88 
Up Periscope! CMS Acct. 128 ......$119 Sub Battle Simulator ..$25 $19 Soevaeeheeiny Calendars & 
ACTIVISION CMS Inventory 128 $49 SummerGames $14 sSkarrrinceoase Stationery $688 
Aliers DATATAST Summer Games2 «0 $22 Indoor Sports sig SERINGEOAR Greeting Cards $6.80 
Cross Country jreakthru s23 Super Cycle infiltrator These Signs & Banners. $6.80 
Havre cin LS $2 Temple ApshaiTrlony $14 parallan $13 CM. Libeary Vol, 1 Conteh tas 
25, The Eidolon 99.88 Periect Score SAT 244; Nenereom, 
Gamemaker s Express Raider $23 Word G ety NAR.Clip Art Vol. Stickybed 
Gamemaber Library Disks i Wartion azar Came ss: Supe Sar say NICEIBAN VOL? ‘ADC ste 
ports Karate Cham $14 ce Hockey rtVol Math 316 
Science ficion.:-..318  KareteMameer cate _,taebal 514 the American Challenge” NR. CHDARLVOL Mates BE 
Hacker 59.00 eee ctling aay FIREBIR ‘sailing Simulation "319 Spposes Se 
Hacker 2 $23 DAVIDSON tite 321 Trail Blarer $19 Reading sie 
Little Computer People $9.88, 333 Elite Hint Book $6 Uchi Mal $19 Shape 516 
Music Studio $23 $3) Staralider $25 Uridium $19 Spellgrabber $16 
Portal $25 $3} The Pawn $25 Misc Typing si6 
Shanghai $19 $B) The sentry 325 Bob's Pro Term128 $47 WINDHAM CLASSICS 
$19 Tracker 525 Celebrity Cookbook. $19 Alice in 
Tiaralotwers $19 GAMESTAR CSM 1541 Align kit $29 iclaita ueiacas 


Rocky HorrorShow $14 Crary 
ARTWORK socks He sua Chame. $9 CP-Copy2 323 Below the Root $6.88 


each Blanket mappa pinieen Doodle 5 Seen Farlly 
Volleyball $958 TLECTRONIC ARTS Court Tene $19 Final Cateidge $39 Robinson $6.08 
Bridge 4.0 $16 re Star Rank Boxing 19 Font Master 2 boas Treasure Island $6.88 
Software Clawic Series: LEA poentat ""7ay Font Mi outst 2000 

querirlan Show tear ont Master 128. gay Roadat Wisdolor $688 
en pase Aten Rarizass HI-TECH EXPRESSIONS Gato S16 Warcame ACCESSORIES 

Highline Games), 120898 incial Cookbook Avard ace CEO tase & Construction Set Anchor 6480 wisoftware 
International Hockey "316 Card Ware Out (Boot), a5 

Heart of Africa War in, Pacific 1200 Baud Modem $119 
Linkword French 316 Heart Ware EOS Ticks & Tips 
Mail Order Monsters Warship. Bonus $8, 0D 04.99 Be 

LnkwordGerman ....st6  MallOrd Love Note Maker (Book) as W Fees 
Linkwordspanish..c..si6 Mind Mirror Panty W: Multiplan 64 we pee BS 00! 

Police cadet .---.39an Movie Maker Inrocom Pleano's Revenge suBLOGIC grees diates 
Stra ket emule are Music Const Set Serer taa es SS Flight Simulator 2 Disk Case Holds 78),91789) 
ata Disk vt Female» s14 Music Cons nashot 64. aay nee sina as Disk Drive Cleaner 39 
Dats Dik e2Male ste OneanOne su ES. Scan Disk Notcher $688 
DataDink sSfemale sia Pisball Const Se Leather Goddesses $59 fos py 500K joystick 514 
Thai Boxing $9.88 Sevemcities Gold Moonmist Superscript 64 abit Hot Shot Printer Int, Call 
AVALON MLL Trinity 128 Superscript 128 a4 TELARIUM Mesenger Modem: $33 


Gesastem oi are MeeyBowlder Dash 388 gy paler f i 


SBS Champs Disk... $14 Se ican : $32 Fahrenheit 451 Graphix. $59 
Wateact lima Wizard SH Nine rnces pal teehee 
Desert Fox $9.89 America’s Cup Sail Sas) 7 Ferry Mien) all programs on disk 
Deceptor $948 Atticros Rush’N Attack 326 Rendezvous wiama unless otherwise noted! 
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lease Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items. 
Personal & Company checks, allow 3 weeks clearance. No C.0.D.'s! Shipping: Continental U.S.A.—Orders under $100 add $3; free shipping on orders over $100. AK, HI. FPO, 
‘APO —add $5 on all orders. Canada & Puerto Rico—add $10 on all orders. Sorry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order 
including shipping charges! REASONS FOR CALLING CUSTOMER SERVICE — 412-361-5291 (1) Status of order or back order (2) If any merchandise purchased within 60 days from .D. 
of A. is defective, please call for a return authorization number. Defective merchandise will be replaced with the same merchandise only. Other returns subject to a 15% restocking 
charge. After 60 days please refer to the manufacturers warranty included with the merchandise & return directly to the manufacturer. Customer service will not accept collect calls or 
alls on S.D. OF A's 800¢ order lines! Have you seen our on line catalog of 1000 software titles for Commodore, Atari, Apple, 18M and Amiga? It's on Compuserve’s Electronic Mall — 
just type GO SDA and shopping for software will never be the same again! HOURS: Mon-Fri, 9AM-5:30 PM, Sat. 10AM-4PM Eastern Time. Because this ad had to be written 2-3 mos 
before it was published, prices & availability are subject to change! New titles are arriving daily! Please call (or more information! 





POWERFUL LOW COST CONTROL 


Data acquisition and control interfaces. 
C128. 

80-Line Simplified Digital 1/0 Board. 40 TTL input lines. 40 
high current switched output lines. ROM cartridge socket. 
Order Model SS100 Plus, $119. Additional boards $109, 
Original Ultimate Interface. Dual 6522 VIA Board. Four 8 
bit ports with handshake, timers, IRQ, etc. Expandable. 
Order Model 641F 22, $169. Additional boards $149. 
AID Conversion Module. 16 channels, 8-bits. Requires 
above. Order Model 64IF/ADC0816, $69. 
Manuals on above available separately for examination. 
Call or write for detailed brochure. 


Ki) hia ae 
SERIOUS ABOUT PROGRAMMING? 


Symbol Master Multi-Pass Symbolic Disassembler. Learn 

to program like the experts! For both C64 and native C128, 

“.,.unmatched by simpler monitor disassemblers. ..a real 

gold mine for the experienced ML programmer,"Computer 
hopper, April '87. $49.95. 

PTD 6510 Symbolic Debugger. An extremely powerful tool 

with capabilities far beyond a machine language monitor, 

For C64, $49.95, 

MAE64 Assembler. Fully professional 6502/65C02 

macro editor assembler. $29,95. 

C64 Source Code Book. Most complete available 

reconstructed and commented assembly language 

source code listing for Basic and Kernal ROMS. $29.95. 





SCHNEDLER SYSTEMS 


1501 N. Ivanhoe St., Dept G8, Arlington, VA 22205 
Information/Telephone Orders (703) 237-4796. 


SE Allprices include shipping prepaid USA. @ 








(aan R ENTAIL aR 
FACTORY AUTHORIZED 


COMMODORE REPAIR CENTER 
1-800-772-7289 


(312) 879-2888 IL 
C64 Repair som . 42.95 
C128 Repair crown. 64.95 


1541 Permanent 
Alignment . 


1541 Repair . 
1571 Repair . 


Amiga Repair 

WRBOMN Geese ences 99.95 
Amiga Drive 

Repair 
Printers . 
79.95 Monitors 
+» 79.95 Other Equipment... CALL 


CALL BEFORE SHIPPING 
PARTS AND LABOR INCLUDED 
FREE RETURN SHIPPING 


(APO, FPO, AIR ADD $10.00) 


24-48 HR. TURNAROUND: 
{Subject to Parts Avallability) 
30 DAY WARRANTY ON ALL REPAIRS | 


COMMODORE PART: 


C-64 Power Supply .. Ks 
128 Power Supply ... 
C-64 Over Voltage Sensor . 
Other Parts 


boty 










For Parts Call (312) 879-2350 
Dealer Discounts Available 


TEKTONICS PLUS, INC. (°""" 
150 HOUSTON STREET 
BATAVIA, IL 60510 


CUP AND SAVE 
Sk ES ot cael 
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All parts for Commodore equipment usually in stock } 
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Handicappers! 


Football 


Pro Football 


Tired of wrestling with 
Sunday point spreads? Let 
your Commodore 64/128 do 
it for you! Pigskin Predic- 
tions, the pro football handi- 
capper, takes the hassle out 
of rating NFL games. Forget 
about dealing with reams of 
arcane statistics. Just spend 
a few minutes typing in each 
week's scores and let our 
point-spread software go to 
work. Here's what it does: 

@ Calculates point spreads and projected won-lost 
records for all games, for any week of the season. 

@® Gives you menu-driven selection of schedules, 
ratings, division races, predictions or results by team or 
week. 

@ Seven different reports on screen or printer. 

@ Maintains home field advantage and power ratings 
for all teams. 

The 1987 schedule and data file are included, all for 
only $44.95. Yearly updates available. You'll be amazed 
by the speed and power of Pigskin Predictions. Get 
yours now and be ready for the season! 


Horse Racing Dog Racing 





The Handicapper 





Use your Commodore 64/128 to improve your per- 
formance at the track! Programs for Thoroughbred, 
Harness and Greyhound racing rank the horses or 
dogs in each race quickly and easily. All the information 
is readily available from the Racing Form, harness or 
dog track program, 

Thoroughbred factors include speed, distance, past 
performance, weight, class, jockey's record, beaten fa- 
vorite and post position. Harness factors include 
speed, post position, driver's record, breaking tenden- 
cies, class, parked-out signs and beaten favorite, Grey- 
hound factors include speed, past performance, ma- 
neuvering ability, favorite box, class, kennel record, 
beaten favorite and breaking ability. 

Complete instructions and wagering guide included. 
Thoroughbred, Harness or Greyhound Handicappers, 
$39.95 each on tape or disk. Any two for $59.95 or all 
three for $79.95. 


Federal Hill Software 
8134 Scotts Level Rd. 
Baltimore. Md. 21208 
Toll-free Orders 800-628-2828 Ext. 850 
Information 301-521-4885 














ABBY’S SUPER BUYS 


INFOCOM MIND GAMES 


ATARISOFT 

Defender (R)....... ++ 
COMMODORE 

EDUCATION & LEARNING 

ABeo C'S(R).. oo... 82.99 
Easy Match/Easy Count..... 2.99 
What's Next? 5 2.99 
Fish-Metic 2.99 
Science Ill... .........00. 299 


VIDEO ARCADE GAMES 
Frogmaster (R) . . -$3.49 
Solar Fox (R) . ; 3.49 
Tooth Invaders (R) oe 3.49 
Clowns (R) .... vee 3,49 
Kickman (R) ... sae eae B49) 
Lazarian (R) .... .. 3.49 
Satan's Hollow 3.49 
Rally Speedway 3.49 
Viduzzles (R) . . . yeaes 349 
Chess....... are 3.49 
Gortek & The 

Microchips (C) Saeee 1,95) 


«+ $4,99 


ABACUS SOFTWARE 

ADA Training Course 
‘Assembler/Monitor 29,00 
Basic Compiler C64 
Basic Compiler C-128 42.00 
Cadpak C:64 29.00 
Cadpak C-128 42.00 
Chartpak C64 or C-128 29.00 
Cobol 64 or 128 29.00 
Forth Language 29.00 
Personal Portfolio 

‘Manager C-64 29,00 
Personal Portfolio 

Manager C128 42.00 
‘Super C/64 of 128 42.00 
‘Super Pascal 64 or 128 42.00 
Technical Analysis 

‘System C64 29,00 
Technical Analysis 

System C:128 42.00 


ABSOLUTE ENTERTAINMENT 
X15 Alpha Mission vee $21.95 
ACCESS 
Leader Board Golt 29.00 
LB, Tournament #1 14.95 
CB, Executive Disk #1 14.95 
Mach 5 24.95 
Mach 128 35.95 
Tenth Frame 29,00 
World Class Leader Board 23,00 


ACCOLADE 
Aco of Aces .....+ sesees 21.95 
Comics z 21.95 
Fight Night 21.95 
Hardball 21.95 
Law of The West 21.95 
PSS Trading Company 21.95 


‘ACTION SOFT 
ACTIVISION 
Aons . se 


Gamemaker....... 
Ghostbusters. 
Greeting Card Maker 
Hocker 

ttle Computer Peopte. 


Up Periscope 


Zork II. 

Zork Ill 
Suspended. . 
Starcross . 
Deadline 


MASTERTRONICS 
Captive $ 


Big Mac... 
Finders Keepers 
Vegas Jackpot 
Golden Talisman 
Quest For Holy Gra 
Se-Kah Of Assiah 
Black Crystal 

1985 - The Day After 
Ant Attack 
Challenger .. 
Spooks 


Shanghai 
Transformers 


ARTWORK 
Beach Blanket Volleyball 
Equestrian Show Jumper 
Highland Games 
Hole In One-+ Six 
Police Cadet 
Thai Boxing 


BASEMENT BOYS 


Fast Hack'em 


BRODERBUND 
Carmen San Diego (USA 
‘or World) 
Karateka 
Print Shop. 
Print Shop Companion 
P.S. Graphics Library 
N23 
Toy Shop 


CENTRAL POINT 
Copy 1! 64/128 


DATA EAST 
Commando 


Express Raider 
Karate Champ 

Kung Fu Master 

Tag Team Wrestling 


DATASOFT 

Alternate Reality 

“The City” 
221 B, Baker St 
Black Magic 
Mercenary 
Never Ending Story 
Pole Position 
The Goonies 
Zorro 


DIGITAL SOLUTIONS 
Super Pack 2.0.0... 
Pocket Filer 2 
Pocket Planner 2 
Pocket Writer 2 


$4.99 
4.99 
4.99 
4.99 
4.99 


$4.99 
4.99 
499 
4.99 
4.99 
4.99 
4.99 
4.99 
4.99 
4.99 
499 
499 


ELECTRONIC ARTS 


Arctic Fox 
Auto Duel 
Bard's Tale 
Bard's Tale 2 
Hint Book Bard's Tale 1 or 2 
Battle Front 
‘Chess Master 2000 
One On One 
Marble Madness 
Movie Maker 
Music Construction Set 
Pinball Construction 
asus: Hydrofoil 
Skylox 
Touchdown Football 
Utimate Wizard 
FIREBIRD 

Elite 
The Pawn 
The Sentry 
Starglider 
Tracker 

GAMESTAR 
Championship Baseball 
GFL Football 
‘On-Court Tennis 

tar Rank Boxing 

Two On Two Basketball 


H&P 
Final Cartridge 
MICROPROSE 


Conflict in Vietnam 
F.15 Strike Eagle. 
Gunship 

Silent Service 

Top Gunner 


MINDSCAPE 
Bop ’N Wrestle 
Uchi Mata 
Fist 
Trail Blazer 
High Roller 
Inftrator 
Indoor Sports 


PROGRESSIVE 

Bob's Term Pro 64/128 
Super Base 64/128 
‘Super Script 64/128 

SSI 
Battle Cruiser 
Battle Group 
Computer Baseball 
Gemstone Warrior 
Gemstone Healer 
Kampfgruppe 
Phantasic 
Phantasie Il 
Question 
Roadwar 2000 
USAAF. 
‘Wargame Construction Set 
War in The South Pacific 


Warship 
SPRINGBOARD 
Certificate Maker 
CM. Library Disk 
Newsroom 
Graphics Expander 
Clip Art (1&3 
Clip Art #2 
SUBLOGIC 
Baseball 
Stadium Disk 
Flight Simulator It 
F.S. Scenery Disk 1-7 


T.K. COMPUTER PRODUCTS 
Monday Morning Manager $29.00 
MMM. 128 Team Disk 16,00 
Money Spin 12.95 
Crypto Mania 1295 


UNISON WORLD 
Print Master Plus 924.95 
Art Gallery 1 & I 17.95 


THUNDER MOUNTAIN 
Demolition Mission 97,50 
Dolphin's Rune 750 
Eliminator 7.50 
Rambo 7,50 
Top Gun 7.50 

XETEC 
Font Master I! 935.00 
Font Master 128 42.00 


COMMODORE HARDWARE 
812K RGB System CALL 
‘A1080 RGB Monitor CALL 
‘AN010 3%" Disk Ori CALL 
1050 256K Expansion CALL 
1680 1200 Baud Modem CALL 
C128 Computer 
Vic 1871 Disk Drive 
Vic 1881 Disk Drive 
D64C Computer 
DIS41C Computer 
Vic 1750 Expansion 
Vic 1764 Expansion 
Vic 1351 Mouse 


DUST COVERS 

Amiga System Pack 
‘Amiga Computer (w/o Monitor) 
‘Amiga Keyboard 
Amiga 1080 Color Monitor 
Amiga 1010 Disk Drive 
©128 Computer 
Vic 20/64 Computer 
1571 Disk Drive 
1541 Disk Drive 
1525 Printer 
1526 Printer 
MPS 1000 W or WiO 

Tractor 
MPS 801/802 Printer 
MPS 803 W or WI 

Tractor 


88 88888888888 


RIBBONS 
Commodore 1525 
Commodore 1526/802 
‘Commodore MPS-801 
Commodore MPS-803, 
Epson MXIFX/RX-80 
Panasonic 1080/1091/1092 
Okimate 10 Black/Color a, $6.00 
Star Gemini Black $2.50 
Star Gemini Color* $3.50 
“Please State Choice of Color 
NASHUA DISKS 
DSIDD 5%" With Steeves 
Per Hundred: 
Per Thousand 
BULK DISKS 
Gold Star 3%" DS/DD 
Sony 3%” DSIDD , 


CALL ON THESE AND 
OTHER PRODUCTS. 
WE CARRY A COMPLETE 
LINE OF SOFTWARE 


Music Studio. .... AND HARDWARE. 


Pocket Writer Dictionary 


ALL TITLES ON DISK UNLESS MARKED (R) FOR ROM CARTRIDGE & (C) FOR CASSETTE TAPE 


FS. Western Set (1-6) 


WE CHECK FOR STOLEN CHARGE CARDS 
M-F 10 a.m.-8 p.m.; Sat. 10-3 ET 
37 S. Broad Street, Fairborn, OH 45324 


Customer Service 
& Ohio Residents 


1-513-879-9699 


Order Line 


1-800-282-0333 
ORDERS ONLY! Sales Personnel Do 


Not Have Information on 
Previous Orders or Product Specs. 
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Pree Spirit Software, Ine. 


538 S, Edgewood 
La Grange, IL 60525 
(312) 352-7323 


Super Disk Utilities 


Thewltimate tities disk forthe 61288 1571, Included among 
its many features are 


© Two drive copy program for the 1571 
© Single dive copy program for the 1571 


© File unscratch utility 
© Create auto-boot utility 


© Lock & unlock tls utility 

© File copier fr one or two 1571's 

© Utility to format in 1541, 1571 or 1M system 34 format 
© CP/M Pls disk copier 

© Direct D0S commands 


© Analyze disk format utility (including Commodore & alien 
disk formats) 


© Write protect utility 


© Disk Editor - Individuatty trace files, edit in hex or ASCH 
simultaneously, pint in hex and ASCI to any sector an disk 


© CP/M Plus disk editor 

© RAM Writer - Read & write to drive RAM 
© ROM Reader - Read drive ROM 

© Assemble/Disassemble drive RAM & ROM 
© Erase a track or bulk erase a disk 

© Most utilities also work on 1541, 

© And much, much more! 

‘A complete utilities disk for only $39.95! 


1541/1571 Drive Alignment 


1541/1571 Drive Alignment reports the alignment condition of 
the disk drive as you perform adjustments. On screen help és 
available while the program is running. Works on the 1541, 1571 
in either 1541 or 1571 mode, C64, SX64, C128 in either 64 or 128 
mode! Autoboots to all modes! Manual includes instructions on 
how to load alignment program even when the drive is so 
misaligned that it will not load anything else Eliminate 
downtime & costly repairs! Only $34.95! 


Super Disk Librarian 


Full featured disk cataloging & library system for the C128 in 
128 mode. Catalogs up to 1000 disks and 15.200 program names! 
Operate in fast mode with 80 column display, Reads & catalogs 
1541, 1571 & CP/M Plus disk directories, Reads heavily 
protected disks. Catalog up to 25 programs on a disk with a 
Single keypress or selectively catalog programs. Stores in seven 
categories: Games, Education, CP/M, Archival, 
Telecommunications, Utiitities or Productivity. Recall by 
category, program name, disk name or locater number. Printer 
‘output includes library index, fll library report, master program 
lst, category program list & disk labels. A second rive can be 
addressed as a data disk Only $29.95! 


Super 64 Librarian 


Complete disk cataloging and library system fo the O64. Reads 
A files disk dcetories in 15 user-defined categories. Individual 
selection of program names to be filed. Includes space for user 
comments about programs. Recall by category, program name, 
tle. Printer output includes disk labels. Catalog approximately 
200 disks dependant upon number of programs and length of 
user comments, Organize your C64 disk library for only 
$29.95! 


FREE SHIPPING & HANDLING! Illinois residents add 8% 
sales tax. Send check"or money order to: 


Free Spirit Soltware, Inc. 
538 S. Edgewood Ee 
La Grange, IL 60525 























DISCOUNT SOFTWARE and 
FREE Leroy's Cheatsheet 


We carry a complete line of software at competitive prices, PLUS - on any software package of $25.00 or more you get a 
FREE Leroy's Cheatsheet of your choice! See below for shipping information, 


COMMODORE 64 [aatateia eee seo MeeMerenene) 
US Print Shop 


Hees oe $7 

uy superscript ABACUS 

Bas Compiler 64 Brit Stop Compan PROFESSIONAL Basie 7.0 Complar 
Chan Pak ea com Flot Syst 


loot Systom 2+ Gad Pac 128 
eae $24 pscrmort a eeaies 
gama’ 
ACCESS DIGITAL SOLUTIONS ‘Gemias ee Spor Pascal 128 
Lear Board Got PockorFier 2S Papat Aiplana Kt mre Bees 
Foumament Dik 1 Pockot Plannor2 —$. Typing Tutor 3. ACCESS. 
Exes Tournament 1 PockotWiter2 $ 
ple Pack DigtalSuperpack —§ ScRINGBCAND| 
$ Clo An Vol #tor #3 


aaas 88ss 


Basse B 


| “Mach 128 cart, 
| EPYX 
fray tie) Pocket Dictionary, Motiplan 128 
tip Poker ELECTRONIC ARTS Cip an s2 
SEES iat) uecrnacs See ae erent, 
BERKELEY SOFTWORKS SOS. Fey) Contticate Library v.1 PERSONAL CHOICE 
‘GEOS EPYX SUBLOGIC Jam The Ci28 
ae FE ca maior 
Fontpack 1 Mutiplan Fight Simulator PROGRESSIVE 
Geokae aaristeltt Nery ta onc Siproue 28 
Geobex World Games TMEWORKS, oe Vener 
‘Writer's Workshop: FIREBIRD Data Manager 2 
= Partner 64 


$ 
$ 
$ 

s 
A 

vite 

sooKsowceos | Ele $ 
$ 
$s 
$s 
$ 

H 
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Vizawrite 
Pawn 


Abacus Star Giger 
GeosinsideSout $19 
Weekend) INFOCOM 
Mee ees Loather Goddesses 
Howto got the most MICROPROSE 
ute GEOS 
Disk for book 


PROFESSIONAL 
Fe 
TIMEWORKS: 
Don't forge! to select your ‘Data Manager 128 
Geter Nene 

of $25 of Word Writer 128 


LEROY'S CHEATSHEET « 


Keyboard Overlays 


PLASTIC 
LAMINATED 


Monee wane wnvnn ann vo 
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For your COMMODORE 128™ For your COMMODORE 6: 
Put Your Program's Commands Where They Belong - And Your Manuals On The Shelf. 
Have you ever sat at your computer with the manual in your lap trying to find an elusive command? How much 


time have you lost searching through manuals to refresh your memory on how to do what you wanted? Now 
you have a way to end that frustration - Leroy’s Cheatsheets. 


Leroy's Cheatsheets help you get ito your program right away. We put the epmmands right at your 
fingertips, actual keystrokes are in bold type, variables are shown in £alics. Designed By software experts, our 
durable plastic laminated overlays are comprehensive reference aids which document a product or system 
‘completely. Now use your software more easily and more effectively. With Leroy's Cheatsheets you'l never 
have to hunt fora program command again! Seabator ler eserg tora 


The Problem Solver 


EQUIPMENT STAND 


By Leroy 


only 


$ 19.95 


i il 


Lenoys HELPBOOK FoR ELITE 
By David Palmer - The frst parson in the US 
to attain ELITE status. Filed with hints & 
‘ips to sharpen your combat and traiging 


Made ot sturdy vinyl coated steel - 
strong enough fot any computer equipment. This equipment stand will help 
You organize your system. "Win ths unique open’ constucion, cables 
skills. Covers approaching space station, are never in tho wrong place, switches are more accossable and your 
‘9904s o trade on what planots, quickest squement stays cooler The Problem Solver Eaupment stand was 
way to become ELITE and prepares youfor specially for ‘Commodore computers 128 8 64, Lifts your 
FIREBIRD'S ELITE TOURNAMENT. montor to oye 109), Measures 18°x 11x 4" high 


Order Now and Save ..._ Money, Time and Frustration 
COMMODORE 128 $7.95 ea 


Bovis berry ee te aa 
DIE-CUT, (CUTOUT-YOURSELF ON 
Oheteate OD FleetSystom 2 
O Fru Smdator2 
O Ferre Boginner 


1 Paperback 0 


Paperback Per 3 Paporcip 
5 Beportack Wrtr ae 5 Geos O Spouceeript 
5 Papereip D Mitpan 5 Sbperoaso 54 
5 Stpertase 128 2 Newsroom 3B Soporsenpt6a 
O Faguteeratatr 2 3B Soperscrgt 28 O Paparsack Pocket) Fier Swncaie 


givieces =o Seca 
3 Fatetea 3 Sencacion Ais fs the COMMODORE 4c 


FREE - Kayboard Extender (1 por ordor) 


ORDERING |NFORMATION: Fox teat get her's check 
1 __Equipment stand(a) for only $19.95 wach eer. Specht! alu’ wets 'er aster Card 
ELITE HELPBOOK ter ony 3 ie nctode a ‘Gite Prices ond) avaibity 
TAXES: 
‘Add 6% salle (include styppng 
Yor PA’ residents only 


a0) Gaze 


CHEATSHEET PRODUCTS, INC. P.O. Box 111368 Pittsburgh, PA. 15238 


(Ordors only TOLL FREE 1-800-334-2896 PAOrdors -(412) 781-1551 DEALER INQUIRES WELCOME 
Write for free catalog of software and accessories 








115 Nassau St Between Beekman & Ann Sis N.Y, NY 


open Mon-Fri 8 30am - 6 30pm Sat 9.30am 


10038 (212)732~4500 | Penn Station/Amileh Level Beneath Madison Sq Garden, NY, NY. 10001 


pm Sun; 930am ~5 300m | (212) 594-7140 open Mon-Fri 830am — 8pm Sat & Sun 930am 
PHONE and MAIL ORDERS 


CALL TOLL FREE 1(800)345—7058 


ALL COMPUTERS & PERIPHERALS COME COMPLETE WITH 
AC ADAPTOR, OWNER’S MANUAL AND ALL CONNECTING 
CABLES. 


Tpm 


IN NEW_YORK STATE CALL 
(212)732—4500 


ALL MERCHANDISE IS BRAND NEW AND FACTORY FRES| 
COMPLETE WITH MFI WARRANT! 


commodore 


C 128= 


128 K RAM 
Powered 
Personal 
Computer 


$235 


& PACKAGE 


*Commodore 64C Computer 
*Commodore 1541C Disk Drive 
*Commodore Color Printer 
Color Monitor 

With Geos Program! 


$529* 


commedore 


TSCM ATEN! \ 
te th aE, \ 


\ 
64K RAM 


Powered 
Home Computer 


with GEOS Program 


$149° 


COMPLETE 
PACKAGE 


*Commodore 64 Computer 
*Commodore 1541 Disk Drive 
+Commodore Color Printer 
+12" Monitor 


$369” 





Same pkg. w/C—64C $399.9! 


commodore 
PC10-1 


IBM, PC/XT 

Compatable 

512K Ram Expandable to 640K 
MS-DOS 3.2 

Parallel and Serial Ports 


Full 1 Year $649" 


Warranty 
PC10—2 640K Computer 
W/2 360K Drives 9169 


AMIGA 512K 
COMPUTER 
SYSTEM 
Complete with 
1080 Monitor S 


MPUTER PACKAGES 


Get it all together & save! 


= COMPLETE 
CG 128= packace 


*Commodore 128 Computer 
*Commodore 1541 Disk Drive 
*12" Monitor 

"Commodore Color Printer 


$499% 


To ee 5 00 for 1541 


DELUXE 
C 1285 packace 


commas 128 Computer 
*Commodore 1571 Disk Drive 
*Commodore 1902 Color 
Monitor 

+Commodore 80 Column 


$759 


WE CARRY A FULL LINE OF SOFTWARE 


FOR COMMODORE COMPUTERS AT 
DISCOUNT PRICES! Call Toll Free to Order 


COMPUTER bu Mel 


PERIPHERALS 


& commodore 


129* 


MPS -803¢ 
Printer 


MPS~1200 
Printer 


EPSON 
DS. 1385 0189" 


S with 
“Interface 


inter. 
Be 46. Printer 
ia 


$219.95 
inter 


ta inter. 
PANASONIC {086i 


OKIDATA 120 PRINTER....$199.95 
OKIMATE 20 
with Plug'n'Print... 


co)” 


ie r= 


WE INVITE CORPORATE 


Daisy Wheel 
Letter Quality 


$169* 


$469.95 SD-15, 


BLUE CHIP IBM® PC COMPATIBLE 


Expansion Slots 
Optional 20MB Hard Drive 
Blue Chip Keyboard 





Certified check 
Additional purch 
ehachs 

net, 


Bank check, Mi 
ie 


& EDUCATIONAL CUSTOMERS 


= 


512K Expanded to 640K |) 


Ce ssaic 
NEW Disk Drive 


$165* 


& 1541 
Disk Drive 


$149* 
$214* 


ogg 
$189*|; 


‘x 1571 
™ Disk Drive 


Monitor 


Color 
Monitor 





LI 


GEOS Software 


TU-803. 
XETEC Jr. Interface. 
XETEC Sr. Interface. 


350-95 |c128 Power Supply...... 
$59.95 C64,C64—C Power Supply...$29.95 


© “MAGIC VOICE’ 


Module $49% 
1670 Automodem $109% 
1351. “Mouse” for aq" 


any Commodore 

Computer 
$99" 
$169" 


1700 128 K 
WE REPAIR_YOUR 


Expansion Module 
Expansion Module 
COMMODORE COMPUTER 


1750 512K 
and PERIPHERALS! 


c~ Ee Drives 
MPs. 


$39.95 





SP180VC 


§13995* 
$229° kx-pio911 MM spiooove °1 4995 


KX-P1592 gi ak 













1200 Baud...... $98 
1200H.C.....$120 
2400 Baud... 











SEE CIALS: $2 Cxcommodore & commodore 
‘Accounts Rec... . a Educator 64 SFD 1001 (1 Meg) 
847985 


Silent Butler i 
MOUSE PAD............. $6 Matos ititace te $1499 
CASIO CZ101 ........ $250 Kwik Load eats Call 
Outlet Surg. Strip 8250 ..$ CALL* 














Completely 





Joy Sticks 


3% DS/DD gom $1.30 
3% SS/DD gow $1.00 











‘ommodore 





(¢ commodore 


















5% DSDD 10m $F .3O 
Hard Drives PET 
3% DISC CASE (30) $8 4023 .9995* 4 
5% DISC CASE(75) $8 8023. .150° 
DISC HEAD CLEANERS $8 8032..150* 






“Completely Refurbished 


AMIGA NEW ecw : 
RELEASES fone $36 Vommexe30 


UNISON WORLD 










$24.00 GEOS In and Out $9.00 Nt Gattery: $16.00 $24.00 
00 base 18 se Ateey 2 1800 200 
21.00 Basic 64 24.00 ‘Print Master 21.00 . 15.00 
2400 Cadpak 128 3600 12.00 
18.00 Cadpak 4 240 
i eee a ° 
2400 a Bae HI TECH 
BO Cobol 128. 4 Card ware 00 $18.0 
Mo ‘Super C Compsier 64/128 BO ‘Heart ware 600 ‘600 
24.00 ‘Super Pascal 4 Party ware. 6.00 00 
hed Ware with al 9.00 3400 
ie Br 
24.0 24.00 

Super Brnderbund Software 2400 

Pook Printshop . Spacial $25.00 

‘Super Graphics Lib. EA cee 18.00, 

Pocket Carmen 21.00 

Pocket Karatons 18.00 

Pri sp comp. 210 
Portal. 
‘Tranic 


3 








FEEEEE 
We 
i 








commodore 





SIDECAR NOW AVAILABLE...$700 | 















GENLOCK s2250| DIGLVIEW #140 | Jo10oRve = $20000 | 
| 2MEG _$40000 
168000em $120 rytyRE souND $125 a5 MEG NS BOOSO 


isbilsaues $3995 2: 
QUANTUM LINK... $2 256K $80° | MaRAUDERI| = $24 [sme docx #28000 
1764 RAM... SCALL ert us 


Stc@ic* PRINTERS 











OKIMATE 20..21 8000 
























Cc commodore 









a « IBM COMPATIBLE 
4 | ; i ee © 512K 
1 a ead 
© CGA Board 
re 0 °o 
Pe 1308 F179" cman 
= © Serial Port 
eri ¢ GW BASIC 
ait © DOS 3.2 
iP R E SIDEKICK 
BY BORLAND 
A PC10-1 ie PC10-2 
starr“ 95 $ 95 
ri i 22 g* NXA5 i 2 99° “499 “With purchase ot 1901 or oan lA 














‘wi!’ 800-433-7756 
CUSTOMER SERVICE 313-427-0267 M -G: a 


HOURS (E.8.71: 
MICROCOMPUTER SERVICES 


Monday thru Friday — 10:00 A.M. to 8:00 P.M. 
‘Saturday — 10:00 A.M. to 6:00 P.M. 


DEALER INQUIREES INVITED 





ATTENTION 


ALL COMMODORE 64/64C, 
VIC 20, COMM. 16 AND 
COMMODORE 128 owners 


A complete self-tutoring BASIC programming course 
is now available. This course starts with turning 
your computer on, to programming just about 
anything you want! This course is currently used 
in both High School and Adult Evening Education 
classes and has also formed the basis of teacher 
literacy programs. Written by a teacher, who after 
having taught the course several times, has put 
together one of the finest programming courses 
available today. This complete 13 lesson course 
of over 220 pages is now available for the COM- 
MODORE 64/64C, VIC 20, COMMODORE 16 
and the COMMODORE 128 and takes you step by 
step through a discovery approach to programming 
and you can do it all in your leisure time! The les- 
sons are filled with examples and easy to under- 
stand explanations as well as many programs for 
you to make up. At the end of each lesson is a test 
of the information presented. Furthermore, ALL 
answers are supplied to all the questions and pro- 
grams, including the answers to the tests. Follow 
this course step by step, lesson by lesson, and turn 
yourself into a real programmer! You won't be dis- 
appointed! 

We will send this COMPLETE course to you at 
once for just $19.95 plus $3,00 for shipping and 
handling (U.S. residents, please pay in U.S. funds). 
If you are not COMPLETELY satisfied, then simply 
return the course within 10 days of receipt for a 
FULL refund, 


LLOW UP 
COURS 


Now available! a 200 page course 
exclusively on sequential and rel- 


ative files using a unique approach 
for those with very limited file programming ex- 
perience - set up your own personal and business 
records! — disk drive a must — same author — 
same guarantee — same cost— this course for 
all computers except Vic 20, 

Fill in the coupon or send a facsimile 











NAMERSS eee ee eS 
ADDRESS === 
CITY 
PROV./STATE 





POSTAUZIE: CODR 
$19.95 





I desire the BASIC program: Any complete cours 
ming course for: Postage and Handling 





Comm. 64/64C° Vic 20 Total: $22.95 
Comm. 128 ©) Comm. 16 © Send Cheaue or Money Order to 
I desire the FOLLOW-UP [7 intlord Educational Services 
course on relative anu seq: v Pioneer Place, 

uential files for all above Brantford, Ontario, 


computers but Vic 20. Canada N3R 7G7 








The CHIEF 
LOL ADVANTAGE 





HARD DISK DRIVES 


FOR COMMODORE C-64 & C-128 Computers 





FEATURES: 


C-128 Compatible w/fast serial & burst mode. 
Operates at 2mhzonaC-64 

Fast Transparent Operation. 

Built in 1571 Floppy Drive. 

Supports all 2.0 to 7.0 DOS Commands 

Runs CP/Mw/ multi Device recognition A-8..0-11. 
Qual Serial Ports 

Device Selectable 8-11 or 8-30 Spftware.. 

No special Interface required. 

Utilities Disk Included 

Built in .C.T. Turbo Loader for C-64 Operation. 
Complete operating manual., 

1 Year Full Warranty. 

Support 88S on lina-24hrs daily 301-371-4020. 








MINI CHIEF™ 2x ioverenoe, 


$595.00 with Flopoy Drive with Fan 


Tooling & Excarnel Power Sunply 





MODEL MC: 





ilies) S695.00 








BOMB Expendable Syatem with 


DATA CHIEF” 


eles S7 95.00 





To order: Cal: 901 971-4000 or 
Band chack on monay order to: 
InCanTrat Inc. 




























THe 
MIRROR 
WB Ow 


DISK COPIER 
$24.95 


NO FINER OR MORE ADVANCED ARCHIVAL COPIER AVAILABLE AT 
ANY PRICE 

EASY TO USE. DOES NOT CAUSE DRIVE HEAD TO KNOCK. 

COPIES UP TO 41 TRACKS. 

PERIODIC UPDATE POLICY, 

AUTOMATICALLY MAKES BACK-UP COPIES FROM VIRTUALLY ALL 
PROTECTED SOFTWARE, 

NIBBLES, HALF TRACKS, COPIES EXTRA SECTORS AND EXTRA TRACKS. 
REPRODUCES ALL DISK ERRORS AUTOMATICALLY. 

FAST, COPIES FULL DISK IN AS LITTLE AS 4-7 MINS. EVEN COPIES 


ITSELF. 
WE COPY MORE! 
MASTERCARD, VISA, M.O. OR CHECK OK 
+ $3 SHIPPING & HANDLING. 
C.O.D. OR FOREIGN ORDERS ADD $2 
CALIF. ORDERS ADD 6% SALES TAX. 


Compumed 


(408) 758-2436 
P.O. BOX 6939 
SALINAS, CA 93912 
FOR COMMODORE 64 AND 1541 DRIVE 
‘OR COMMODORE 128 AND 1571 DRIVE 












FrOM micro far" 


THE 39C piskETTE! 


‘Aro you paying too much for diskettes? Try our first 
quality, primo, 5%4” diskettes (no rejects, no seconds) 
at these fantastic sale prices and save, save, SAVE! 
Disks are packaged in boxes of 50; including diskettes 
in sleeves, labels, and write-protect tabs. 


Each diskette is certified to be 100% error free and 
comes with a lifetime warranty (if you have a problem, 
welll replace the diskette). All diskettes include hub rein- 
forcement rings and write-protect notch. 


‘Ail diskettes are doublo density and work in either 
single or double density drives, 


SS, DD Diskettes, Box of 50 
92391 


DS, DD Diskettes, Box of 50 
32403 


$19.50-a9¢ ea.! 


$24.50-a96 ea. 


POWER and PROTECTION 
FOR YOUR C-64!© 


POW’R PAK 64 ¢, aa 


from MicroPal® 

Pow'r Pak is a replacement power supply (1.5 amp) 
for the Commodore 64" . . .but that's not all! Pow'r 
Pak also supplies two additional surge protected out- 
lets (120V) for monitor, disk drive, or other peripher- 
als. On/off switch. Fuse protection. Sturdy all-metal 
casing is ventilated for heat dissipation. Full 1 year 


warranty. 
34910 $49.95 


Super Deal On 
Diskette Storage! 


Sing, 
ONLY 


9.95 
Bs YAS 


* A whopping 100 disk (5¥4") capacity 
‘Lock and keys for extra security and easy carrying. 
© Includes 8 index dividers with labels for organization of 
filing and retrieval 
* Made of durable anti-static, high impact plastic 
* Attractive smoked color lid 
Sug. Retail $19.95 


66826 NOW ONLY $9.95 


From Your Friends At 


P.O. Box 6578 
TENE Be 


ter 


couuoonae 6 
NOTE: Due to put 


sr: tn CoMMOOO: 


Sensational Prices! 
On Our Most Popular Items! 

















starr 





$17 95 


25 cps in NLO 

1 One-Year Warranty 
100 cps in Draft Mode 
Wi Ideal for Home or School 
1 Unbeatable Low Price 
64204 NP.10 Printer 


= 





$174.95 
Other Fino Star Printors: 


41366 NX-10 SCall For Lowest Price 
55766 NX10C SCall For Lowest Price 





‘No Catches! Nothing Elso To Buy! 






$159 








Commodore Compatible 
5%" Disk Drive 
Runs All C-64 Commercial Software * 


* Ready to Run Right From the Box * 
* Full 1 Year Warranty © 30% Faster * 


66166 Disk Drive . . $159.00 














x THE BEST PRICES 


ANYWHERE ELSE? 42086 


Space Saving Printer Stand 


THE FAMOUS SLIK STIK™ 


The Sik Stk" has been a favorite for years._and 





for god reason. ts ust the ight eomraton ot 
THE BEST SERVICE + | secposnenes and acre hod pect 
be eat! From Suncom. 90 dy waranty. Comect 

WHY SHOP directly to Commodore Computers. 






ONLY $6.95! 
























Atlast a printer stand priced for homes and small offices! This great stand from 
Suncoms elevated so you can place yout paper underneath. Features heavy duty 
welded steel wire construction and has a vinyl coating to reduce noise and vibra 





We gladly accept mall orderst 


South Bend, IN 46660 


Questions? Call 
219/259- 7051) 


tion, Another plus... the pi dat ana 
to see your output as its Being printed. val 
£80 column printers, and 18” for most 132 colum 
33232 12° Printer Stand 

33246 18° Printer Stand 


Paper Tray 

er wondered what 9 do wi the pritout that comes out ofthe pr 
to pial oer he table and foo? The Suncom Pape ray at 

al Suncom sands and rece he prin papers eomes ut 
to naty fold and stack Sun 
42091 


DUST COVER & 
EVERYTHING BOOK 


Discover the savings and easy shopping available 
from TENEX Computer Express PLUS receive a 
FREE dust cover for your C64 or C128! Cover Is 
antistatic, B-gauge vinyl sewn to our exacting 
standards with relnforced seams. Get to know our 
(great products, extensive selection and fast serv 
ice with a FREE copy of our Everything Book for 
Commodore Computing. ($2.95 Shipping Charge) 
31627 €-64 Dust Cover and Catalog (G4C) 
38464 C-128 Dust Cover and Catalog (G4C) 
65100 646 Dust Cover and Catalog (G4C) 


SHIPPING CHARGES { 

‘ORDER AMOUNT CHARGE 
less than $20.00 $3.75 
$20,00-$39,99 4.75 
$40,00-$74.99 5.75 
$75.00-$149,99 675 
'$150,00-$299,99 7.75 
$300 & up 875 

Fore 





(Was $1495) ONLY $ 6.95 
(Was $22.95) ONLY $12.95 


Retal $14.95, 
$11.05 


The Right Interface For All 
Your Printing Needs! 

ode ‘as... Sommodon "BUN Bee "00 

basa Sate pp pertermanee pape 

part Breiec os Bt a 

64nd ic 20 omuatera Commodore ret Comes Wh 


aes and wr an $39.95 


Super Graphix. featues ak putter 10 priting 
‘Pods tral ren duns and top mounted dp atch. 
Supports superseng, suber, underlang, BOW face, and 
a chote ot 9 characier wists. From Natee 


41769 


NO EXTRA FEE FOR CHARGES 


WE VERIFY CHARGE CARD 
ADDRESSES 


ORDER TOLL FREE 
1-800-348-2778 


INDIANA ORDER LINE 1-800-225-6838 


COMPUTE!s GAZETTE 
Author’s Guide 


Here are some suggestions which serve to improve 
the speed and accuracy of publication for prospective 
authors. COMPUTE!’s GAZETTE is primarily interested 
in new and timely articles on the Commodore 128, 
64, Plus/4, and 16. We are much more concerned 
with the content of an article than with its style, but 
articles should as be clear and well-explained as 
possible. 

The guidelines below will permit your good ideas 
and programs to be more easily edited and published: 

1. The upper left corner of the first page should 
contain your name, address, telephone number, and 
the date of submission. 

2. The following information should appear in the 
upper right corner of the first page: If your article is 
specifically directed to one model of computer, please 
state the model name. In addition, please indicate the 
memory requirements of programs. 

3. The underlined title of the article should be 
placed about 74 of the way down the first page. 

4. Following pages should be typed normally, 
except that in the upper right corner there should be 
an abbreviation of the title, your last name, and the 
page number—for example: Memory Map/Smith/2. 

5. All lines within the text of the article must be 
double- or triple-spaced. A one-inch margin should be 
left at the right, left, top, and bottom of each page. No 
words should be divided at the ends of lines. And 
please do not right-justify. Leave the lines ragged. 

6. Standard typing or computer paper should be 
used (no erasable, onionskin, or other thin paper), and 
typing should be on one side of the paper only 
(upper- and lowercase). 

7. If you are submitting more than one article, 
send each one in a separate mailer with its own tape 
or disk. 

8. Short programs (under 20 lines) can easily be 
included within the text. Longer programs should be 
separate listings. It is essential that we have a copy of 
the program, recorded twice, on a tape or disk. If your 
article was written with a word processor, we request 
that you include a copy of the text file on the tape or 
disk. If you include a copy of your article on disk, 
please save the article as plain text, without any spe- 
cial formatting characters or control codes. Most word 
processors provide an option for saving a document as 
plain ASCII text or in unformatted form, Please use 
high-quality 10- or 30-minute tapes with the program 
recorded on both sides. The tape or disk should be 
labeled with your name and the title of the article. 
Tapes are fairly sturdy, but disks need to be enclosed 
within plastic or cardboard mailers (available at 
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photography, stationery, or computer supply stores). If 
possible, programs written in machine language or a 
compiled language should include source code (or an 
annotated disassembly if the program was written 
with a machine language monitor). 

9. A good general rule is to spell out the numbers 
zero through ten in your article and write higher 
numbers as numerals (1024). The exceptions to this 
are: Figure 5, Table 3, TAB(4), and so on. Within ordi- 
nary text, however, the zero through ten should ap- 
pear as words, not numbers. Also, symbols and 
abbreviations should not be used within text: Use and 
(not &), reference (not ref.), through (not thru). 

10. For greater clarity, use all capitals when refer- 
ring to keys (RETURN, CTRL, SHIFT), BASIC words 
(LIST, RND, GOTO), and the language BASIC. Head- 
lines and subheads should, however, be initial caps 
only, and emphasized words are not capitalized. If 
you wish to emphasize, underline the word; then it 
will be italicized during typesetting. 

11. Articles can be of any length—from a single- 
line routine to a multiple-issue series. The average 
article is about four to eight double-spaced, typed 
pages. 

12. We do not consider articles which are submit- 
ted simultaneously to other publishers, If you wish to 
send an article to another magazine for consideration, 
please do not submit it to us. 

13. COMPUTE!'s GAZETTE pays between $70 and 
$800 for published articles, In general, the rate reflects 
the length and quality of the article. Payment is made 
upon acceptance. Following submission (to Editorial 
Department, COMPUTE!’s GAZETTE, P.O, Box 5406, 
Greensboro, NC 27403), it will take from four to eight 
weeks for us to reply. If your work is accepted, you 
will be notified by a letter which will include a con- 
tract for you to sign and return. Rejected manuscripts 
are returned to authors who enclose a self-addressed, 
stamped envelope. 

14. If your article is accepted and you subsequent- 
ly make improvements to the program, please submit 
an entirely new tape or disk and a new copy of the 
article reflecting the update. We cannot easily make 
revisions to programs and articles. It is necessary that 
you send the revised version as if it were a new sub- 
mission entirely, but be sure to indicate that your sub- 
mission is a revised version by writing Revision on the 
envelope and the article. 

15. COMPUTE!’s GAZETTE does not accept unsolic- 
ited product reviews. If you are interested in serving 
on our panel of reviewers, contact the Features Editor 
for details. 


PRINTER PACKAGE SPECTACULAR 


ALL, PRINTER PACKAGES INCLUDE. - NO SURCHARGES ON CREDIT CARDS - FREE SIIPPING IN CONTINENTAL USA 
SUPER GRAPIUC INTER! (NOT JR) FROM THE FAIR MAIL ORDER COMPANY 


Com _putgthility 


thas Asai 


commodore 


PANASONIC 1080i NX-10 PRINTER 64C COMPUTER (€-128 COMPUTER 
PRINTER ‘ 1541C DISK DRIVE 1871 DISK DRIVE 
& XETEC SUPER GRAPHIC INTERFACE EC MCNTOR, Bee OUNTOR 
XETEC SUPER GRAPHIC INTERFACE $259 CALL FOR INDIVIDUAL 
$239 & SUPER PACKAGE PRICES 
NO SURCHARGES ON CREDIT CARDS: (NO SURCHARGES ON CREDIT CARDS: SEIKOSHA 
FREE SHIPPING IN CONTINENTAL USA FREE SHIPPING IN CONTINENTAL USA 1750 RAM EXPANDER 1000VC PRINTER 


1764 RAM EXPANDER 
PANASONIC 10911 1351 MOUSE GRAPHICS INTERFACE 
PRINTER Pe NATeXconcMooeM | $169 


XETEC SUPER GRAI NO SURCHARGES: 
XETEC SUPER GRAPHIC INTERFACE ne “3389 CALL FOR ON CREDIT CARDS 


$309 CURRENT PRICES |, EREESHDFING 
RCHARG! 
No SURCHARGES ON cneorT CARDS FREE SHPPING IN CONTINENTALUSA 


FREE SHIPPING IN CONTINENTAL USA 
NP-10 PRINTER Vamica, 


PRINTER & COMPUTER SYSTEM 
XETEC SUPER GRAPHIC INTERFACE CALL FOR CURRENT PRICES & AVAILABILITY 


XETEC SUPER gic INTERFACE $219 EPSON” 


$369 PRINTER PACKAGES 
NO SURCHARGES ON CREDIT CARDS 
pos Hc opaabrtceieaetion FREE SHIPPING IN CONTINENTAL USA PRICES TOO LOW TO ADVERTISE 








C-128 SOFTWARE AMIGA 
Superbase 128 57.95 Pocket Filer 2 36.95 Chart Pak 128 Visastar 128 $4.95 SOFTWARE 


Wordwnter 128 4295 Pocket Water 2 3695 Cad Pak 128. Super Pascal 128 39.95 (e L 

2 a beet 128. Basic Compiler 128.......39.95 Super C Compiler 39 Super Pak 128. 46.95 A 
juperscript 128. 46.95 Fonimastert28 3695 Cobol 128, 3995  Swiltcalc 128 42.95 

SuperPak 2. 5995  Visawrite 128,. 54.95 Speed Term 128. Partner 128 42.95 FOR PRICE & 

Sylvia Porter 128......... 42.98 — Mulvpian 128 27.95 Pocket Planner2. 5 Fleet System 4 4695 AVAILABILITY 


MON.-FRI.9AM-9PM SAT. 11AM-5PM. 


BRODERBUND ACCOLADE MISCELLANEOUS 64 ELECTRONIC ARTS 
25,95 Bank St, Serles(Ea) ‘Ace of Aces Final Cartridge «39.95 a 10.95, 
25.95 Graphic Lib. 1.2 or 3 Kilt Untt Deas FetiowshipmRing -. 23.95 10.95, 
25.95 Marabait Hobitt 23.95 
39.95 Fight Night Leather Goddenies -.22.95 
S995 PSI Trading Co. Moonmist 22.95 Mall Ord. Monsters 
25.95 ‘Accolade Comics Cert, Maker Lib 1. ..21.95 Hollywood Hijinks 22. Ming Mirror 
25.95 Busnes Form Shop 25.95 Movie Maker 
16.95 cae MICROPROSE KONAMI Fontmaster2 ......30.95 Mule 


Personal Portfolio. ..25.95 : Stern Service «=... arin Artctang Fu Disney Comic Strip : 23.95 Musle Construction | 
Xper System v.10 3995 Gunship ....-.-+ calmness Diney Card & Party .23.95 One On One «=. 
se2295 pirates ‘MicroLeaque Baseball 25.95 Pinball Construction 


ACCESS Fast Load 4 Top Gunner crete WAWE Wrestling ....25.95 Racing Destruction 
Mach V&art 2195 Movie Monster « FAS Strike Eagle. . iit ae Starfleet 26.95 Seven Cities of Gold 
Leader Board ......24,95 Champ Wrestling Kennedy Approach . - Battle Front .......26.95 — Skytox. 
Tournament Disk 14.95 World Gomes . . Crusade In Europe Eite 22.95 Super Boulderdash 
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Each month, COMPUTE!’s GAZETTE 
publishes programs for the Com- 
modore 128, 64, Plus/4, and 16. 
Each program is clearly marked by 
title and version. Be sure to type in 
the correct version for your ma- 


chine. All 64 programs run on the 
128 in 64 mode, Be sure to read the 
instructions in the corresponding 
article, This can save time and elim- 
inate any questions which might 


arise after you begin typing. 


We frequently publish two 
programs designed to make typing 
easier; The Automatic Proofreader, 
and MLX, designed for entering 


machine language programs. 






error, 


When You Read: Press: 








{cur} [Suir] [ CLRHOME | {PUR} 
{HOME} [ CLRIHOME | {GRN} (ea a 
{uP} {siiwer) [Tcxse J (BLU) 
{DOWN} {YEL} 
ALERT} (Ft) 
{RIGHT} | tp) 
(RVS} | GE] im) 
(oFF) | Ml is) 
{BLK} | Bil aus) 
{WHT} | {Fo} 
{RED} A {F7} 
{CYN} } =] {By 
IIL 


When entering a BASIC pro- 
gram, be especially careful with 
DATA statements as they are ex- 
tremely sensitive to errors. A mis- 
typed number in a DATA statement 
can cause your machine to “lock 
up’ (you'll have no control over the 
computer), If this happens, the only 
recourse is to turn your computer 
off then on, erasing what was in 
memory. So be sure to save a pro- 
gram before you run it. If your com- 
puter crashes, you can always 
reload the program and look for the 





See: 





Special Characters 






How To Type 
COMPUTE"s GAZETTE Programs 


Most of the programs listed in each 
issue contain special control charac- 
ters. To facilitate typing in any pro- 
grams from the GAZETTE, use the 


following listing conventions. 


The most common type of con- 
trol characters in our listings appear 
as words within braces: {DOWN} 
means to press the cursor down 
key; {5 SPACES} means to press 
the space bar five times. 

To indicate that a key should 
be shifted (hold down the SHIFT 
key while pressing another key), 
the character is underlined. For ex- 
ample, A means hold down the 
SHIFT key and press A. You may 
see strange characters on your 
screen, but that’s to be expected. If 
you find a number followed by an 
underlined key enclosed in braces 
(for example, {8 A}), type the key 
as many times as indicated (in our 
example, enter eight SHIFTed A’s). 

If a key is enclosed in special 
brackets, — 9, hold down the 
Commodore key (at the lower left 
corner of the keyboard) and press 
the indicated character. 


Rarely, you'll see a single letter 


of the alphabet enclosed in braces, 


When You Read: 


Press: 
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Ei ¢ 





S22eRISHE) 









This can be entered on the Commo- 
dore 64 by pressing the CTRL key 
while typing the letter in braces, For 
example, {A} means to press 
CTRL-A, 


The Quote Mode 
Although you can move the cursor 
around the screen with the CRSR 
keys, often a programmer will want 
to move the cursor under program 
control. This is seen in examples 
such as {LEFT}, and {HOME} in 
the program listings. The only way 
the computer can tell the difference 
between direct and programmed 
cursor control is the quote mode. 
Once you press the quote key, 
you're in quote mode. This mode 
can be confusing if you mistype a 
character and cursor left to change 
it, You'll see a reverse video charac- 
ter (a graphics symbol for cursor 
left). In this case, you can use the 
DELete key to back up and edit the 
line. Type another quote and you’re 
out of quote mode. If things really 
get confusing, you can exit quote 
mode simply by pressing RETURN. 
Then just cursor up to the mistyped 
line and fix it, 

























When You Read: Press: See: 





H 
A 
am 





For Commodore 64 Only 
{comoporé| | 1 

















is 1 
£23 [commovore| | 2 | G& 
bag [commopore|| > | Cs) 
ae) |commovore|| 4| [a] 
Es3 {commopore|| 5 | Fy 
Beg {commonore}| 6 | fj] 
E73 QO 
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The Automatic Proofreader 





Philip 1. Nelson, Assistant Editor 


“The Automatic Proofreader’ helps 
you type in program listings for the 
128, 64, Plus/4, and 16 and prevents 
nearly every kind of typing mistake. 

Type in the Proofreader exactly as 
listed. Since the program can’t check it- 
self, type carefully to avoid mistakes. 
Don’t omit any lines, even if they con- 
tain unfamiliar commands. After finish- 
ing, save a copy or two on disk or tape 
before running it. This is important be- 
cause the Proofreader erases the BASIC 
portion of itself when you run it, leav- 
ing only the machine language portion 
in memory. 

Next, type RUN and press RE- 
TURN. After announcing which com- 
puter it’s running on, the Proofreader 
displays the message “Proofreader 
Active’, Now you're ready to type in a 
BASIC program. 

Every time you finish typing a line 
and press RETURN, the Proofreader 
displays a two-letter checksum in the 
upper-left comer of the screen. Com- 
pare this result with the two-letter 
checksum printed to the left of the line 
in the program listing. If the letters 
match, it's almost certain the line was 
typed correctly. If the letters don’t 
match, check for your mistake and cor- 
rect the line. 

The Proofreader ignores spaces not 
enclosed in quotes, so you can omit or 
add spaces between keywords and still 
see a matching checksum, However, 
since spaces inside quotes are almost al- 
ways significant, the Proofreader pays 
attention to them, For example, 10 
PRINT’ THIS IS BASIC” will generate 
a different checksum than 10 
PRINT’THIS ISBA SIC”. 

A common typing error is transpo- 
sition—typing two successive charac- 
ters in the wrong order, like PIRNT 
instead of PRINT or 64378 instead of 
64738. The Proofreader is sensitive to 
the position of each character within the 
line and thus catches transposition 
errors. 

The Proofreader does not accept 
keyword abbreviations (for example, ? 
instead of PRINT). If you prefer to use 
abbreviations, you can still check the 
line by LISTing it after typing it in, 
moving the cursor back to the line, and 
pressing RETURN. LISTing the line 








substitutes the full keyword for the ab- 

breviation and allows the Proofreader 
to work properly, The same technique 
works for rechecking programs you've 
already type 

If you're using the Proofreader on 
the Commodore 128, Plus/4, or 16, do 
not perform any GRAPHIC commands 
while the Proofreader is active. When 
you perform a command like GRAPH- 
IC 1, the computer moves everything at 
the start of BASIC program space—in- 
cluding the Proofreader—to another 
memory area, causing the Proofreader 
to crash. The same thing happens if you 
run any program with a GRAPHIC 
command while the Proofreader is in 
memory. 

Though the Proofreader doesn’t 
interfere with other BASIC operations, 
it’s a good idea to disable it before run- 
ning another program. However, the 
Proofreader is purposely difficult to dis- 
lodge: It’s not affected by tape or disk 
operations, or by pressing RUN/ 
STOP- RESTORE, The simplest way to 
disable it is to turn the computer off 
then on. A gentler method is to SYS to 
the computer's built-in reset routine 
(SYS 65341 for the 128, 64738 for the 
64, and 65526 for the Plus/4 and 16). 
These reset routines erase any program 
in memory, so be sure to save the pro- 
gram you're typing in before entering 
the SYS command. 

If you own a Commodore 64, you 
may already have wondered whether 
the Proofreader works with other pro- 
gramming utilities like “MetaBASIC.” 
The answer is generally yes, if you're 
using a 64 and activate the Proofreader 
after installing the other utility. For ex- 
ample, first load and activate Meta- 
BASIC, then load and run the 
Proofreader, 

When using the Proofreader with 
another utility, you should disable both 
programs before running a BASIC pro- 
gram. While the Proofreader seems un- 
affected by most utilities, there’s no 
way to promise that it will work with 
any and every combination of utilities 
you might want to use, The more utili- 
ties activated, the more fragile the sys- 
tem becomes. 


The New Automatic Proofreader 
10 VEC: EN De AeA UUey) 











20 PRINT “AUTOMATIC PROOFREADE 
R FOR IF VEC=42364 THEN 
(SPACE]PRINT "c-64" 

38 IF VEC=50556 THEN PRINT 
c-26" 

40 IF VEC=35158 THEN GRAPHIC C 
LR:PRINT "PLUS/4 & 16" 

$8 IF VEC=17165 THEN LO=45:HI= 
46:GRAPHIC CLR:PRINT"128" 

68 SA=(PEEK(LO)+256*PEEK(HI)) + 
6:ADR=SA 

78 FOR J=@ TO 166:READ BYT:POK 
E_ ADR, BYT: ADRSADR+1 :CHK=CHK 
+BYT: NEXT 

80 IF CHK<>20570 THEN PRINT "* 
ERROR* CHECK TYPING IN DATA 
STATEMENTS": END 

90 FOR J=1 T0 5:READ RF,LF,HF: 
RS=SA+RP:1B=INT(RS/256) :LB= 
RS-(256*HB) 

108 CHK=CHK+RE+LE+HE:POKE SA+L 
F,LB:POKE SA+HF,HB:NEXT 

118 IF CHK<>22054 THEN PRINT ” 
*ERROR* RELOAD PROGRAM AND 
(SPACE CHECK FINAL LINE":EN 
D 





“vr 


128 POKE SA+149,PEEK(772):POKE 
SA+158, PEEK(773) 

130 IF VEC=17165 THEN POKE SA+ 
14,22:POKE SA+1B,23:POKESA+ 
29,224 :POKESA+139, 224 

148 PRINT CHRS(147);CHRS(17);" 
PROOFREADER ACTIVE":SYS. SA 

158 POKE HI, PEEK(HI)+1;POKE (P 
EEK(LO)+256*PEEK(HI))-1,0:N 


EW 

160 DATA 126,169,73,141,4,3,16 
9,3,141,5,3 

178 DATA 88,96,165,20,133,167, 
165,21,133,168, 169 

186 DATA 0,141,0,255,162,31,18 
1,199,157,227,3 

198 DATA 202,16,248,169,19,32, 
210,255,169,18,32 

208 DATA 210,255,160,0,132,180 
/132,176,136,230,180 

219 DATA 208,185,8,2,240,46,20 
1,34,208,8,72 

220 DATA 165,176,73,255,133,17 
6,104,72,201,32, 268 

238 DATA 7,165,176,208,3,104,2 
98, 226,104,166,180 

248 DATA 24,165,167,121,0,2,13 
3,167, 165,168,105 

250 DATA 8,133,168,202,208,239 
+240, 202,165,167,69 

260 DATA 168,72,41,15,168,185, 
211,3,32,218,255 

278 DATA 104,74,74,74,74,168,1 
85,211,3,32,210 

280 DATA 255,162,31,169,227,3, 
149,199, 202,16,248 

298 DATA 169,146,32,210,255,76 
,86,137,65,66,67 

308 DATA 68,69,70,71,72,74,75, 
77,80,81,82,83,88 

318 DATA 13,2,7,167,31,32,151, 
116,117,151,128, 129,167,136 


137 @ 
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Ottis R. Cowper, Technical Editor 


“MLX” is a labor-saving utility that 
allows almost fail-safe entry of 
machine language programs. Included 
are versions for the Commodore 64 
and 128. 


Type in and save some copies of which- 
ever version of MLX is appropriate for 
your computer (you'll want to use it to 
enter future ML programs from COM- 
PUTE!s GAZETTE). Program 1 is for the 
Commodore 64, and Program 2 is for 
the 128 (128 MLX can also be used to 
enter Commodore 64 ML programs for 
use in 64 mode), When you're ready to 
enter an ML program, load and run 
MLX, It asks you for a starting address 
and an ending address. These addresses 
appear in the article accompanying the 
MLX-format program listing you’re 
typing. 

If you're unfamiliar with machine 
language, the addresses (and all other 
values you enter in MLX) may appear 
strange, Instead of the usual decimal 
numbers you're accustomed to, these 
numbers are in hexadecimal—a base 16 
numbering system commonly used by 
ML programmers. Hexadecimal—hex 
for short—includes the numerals 0-9 
and the letters A-F. But don’t worry— 
even if you know nothing about ML or 
hex, you should have no trouble using 
MLX, 

After you enter the starting and 
ending addresses, you'll be offered the 
option of clearing the workspace. 
Choose this option if you're starting to 
enter a new listing. If you’re continuing 
a listing that’s partially typed from a 
previous session, don’t choose this 
option. 

A functions menu will appear, The 
first option in the menu is ENTER 
DATA. If you're just starting to type in 
a program, pick this, Press the E key, 
and type the first number in the first 
line of the program listing. If you've al- 
ready typed in part of a program, type 
the line number where you left off typ- 
ing at the end of the previous session 
(be sure to load the partially completed 
program before you resume entry). In 
any case, make sure the address you en- 
ter corresponds to the address of a line 
in the listing you are entering. Other- 
wise, you'll be unable to enter the data 
correctly. If you pressed E by mistake, 
you can return to the command menu 
by pressing RETURN alone when 
asked for the address. (You can get back 
to the menu from most options by 
pressing RETURN with no other input.) 











Entering A Listing 
Once you're in Enter mode, MLX prints 
the address for each program line for 
you. You then type in all nine numbers 
on that line, beginning with the first 
two-digit number after the colon (:): 
Each line represents eight data bytes 
and a checksum. Although an MLX- 
format listing appears similar to the 
“hex dump’ listings from a machine 
language monitor program, the extra 
checksum number on the end allows 
MLX to check your typing. (Commo- 
dore 128 users can enter the data from 
an MLX listing using the built-in moni- 
tor if the rightmost column of data is 
omitted, but we recommend against it. 
It’s much easier to let MLX do the proof- 
reading and error checking for you.) 
When you enter a line, MLX recal- 
culates the checksum from the eight 
bytes and the address and compares 
this value to the number from the ninth 
column, If the values match, you'll hear 
a bell tone, the data will be added to the 
workspace area, and the prompt for the 
next line of data will appear. But if MLX 
detects a typing error, you'll hear a low 
buzz and see an error message. The line 
will then be redisplayed for editing. 


Invalid Characters Banned 

Only a few keys are active while you're 
entering data, so you may have to un- 
learn some habits. You do not type 
spaces between the columns; MLX 
automatically inserts these for you. You 
do not press RETURN after typing the 
last number in a line; MLX automatical- 
ly enters and checks the line after you 
type the last digit. 

Only the numerals 0-9 and the let- 
ters A-F can be typed in. If you press 
any other key (with some exceptions 
noted below), you'll hear a warning 
buzz. To simplify typing, 128 MLX re- 
defines the function keys and + and — 
keys on the numeric keypad so that you 
can enter data one-handed. (The 64 
version incorporates the keypad modi- 
fication from the March 1986 “Bug- 
Swatter’’ column, lines 485-487.) In 
either case, the keypad is active only 
while entering data, Addresses must be 
entered with the normal letter and 
number keys. The figures above show 
the keypad configurations for each 
version. 

MLX checks for transposed charac- 
ters. If you're supposed to type in AO 
and instead enter 0A, MLX will catch 
your mistake. There is one error that 











Machine Language Entry Program 
For Commodore 64 and 128 


64 MLX Keypad 


128 MLX Keypad 


A B 
(F1) | (F3) 





can slip past MLX: Because of the 
checksum formula used, MLX won't 
notice if you accidentally type FF in 
place of 00, and vice versa. And there’s 
a very slim chance that you could gar- 
ble a line and still end up with a combi- 
nation of characters that adds up to the 
proper checksum, However, these mis- 
takes should not occur if you take rea- 
sonable care while entering data. 


Editing Features 

To correct typing mistakes before fin- 
ishing a line, use the INST/DEL key to 
delete the character to the left of the 
cursor. (The cursor-left key also de- 
letes.) If you mess up aline really badly, 
press CLR/HOME to start the line over, 
The RETURN key is also active, but 
only before any data is typed on a line. 
Pressing RETURN at this point returns 
you to the command menu. After you 
type a character of data, MLX disables 
RETURN until the cursor returns to the: 


start of a line. Remember, you can press 
CLR/HOME to quickly get to a line 
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number prompt. y 

___ More editing features are available 
when correcting lines in which MLX 
has detected an error. To make correc- 
tions in a line that MLX has redisplayed 
for editing, compare the line on the 
Screen with the one printed in the list- 
ing, then move the cursor to the mis- 
take and type the correct key. The 
cursor left and right keys provide the 
normal cursor controls. (The INST/ 
DEL key now works as an alternative 
cursor-left key,) You cannot moye left 
beyond the first character in the line. If 
you try to move beyond the rightmost 
character, you'll reenter the line. Dur- 
ing editing, RETURN is active; pressing 
it tells MLX to recheck the line. You can 
press the CLR/HOME key to clear the 
entire line if you want to start from 
scratch, or if you want to get to a line 
number prompt to use RETURN to get 
back to the menu. 


Display Data 

The second menu choice, DISPLAY 
DATA, examines memory and shows 
the contents in the same format as the 
program listing (including the check- 
sum). When you press D, MLX asks you 
for a starting address. Be sure that the 
Starting address you give corresponds 
to a line number in the listing. Other- 
wise, the checksum display will be 
meaningless. MLX displays program 
lines until it reaches the end of the pro- 
gram, at which point the menu is redis- 
played. You can pause the display by 
pressing the space bar. (MLX finishes 
printing the current line before halting.) 
Press space again to restart the display. 
To break out of the display and get back 
to the menu before the ending address 
is reached, press RETURN. 


Other Menu Options 
Two more menu selections let you save 
programs and load them back into the 
computer. These are SAVE FILE and 
LOAD FILE; their operation is quite 
straightforward. When you press S or L, 
MLX asks you for the filename. You'll 
then be asked to press either D or T to 
select disk or tape, 
You'll notice the disk drive starting 
and stopping several times during a 
load or save (save only for the 128 ver- 
sion). Don’t panic; this is normal be- 
havior. MLX opens and reads from or 
writes to the file instead of using the 
usual LOAD and SAVE commands 
(128 MLX makes use of BLOAD). Disk 
users should also note that the drive 
prefix 0: is automatically added to the 
filename (line 750 in 64 MLX), so this 
should not be included when entering 
the name. This also precludes the use of 
@ for Save-with-Replace, so remember 
es give each version you save a different 








name. The 128 version makes up for 
this by giving you the option of scratch- 
ing the existing file if you want to reuse 
a filename. 

Remember that MLX saves the en- 
tire workspace area from the starting 
address to the ending address, so the 
save or load may take longer than you 
might expect if Ee entered only a 
small amount of data from a long list- 
ing. When saving a partially completed 
listing, make sure to note the address 
where you stopped typing so you'll 
know where to resume entry when you 
reload. 

MLX reports the standard disk or 
tape error messages if any problems are 
detected during the save or load. (Tape 
users should bear in mind that Commo- 
dore computers are never able to detect 
errors during a save to tape.) MLX also 
has three special load error messages: 
INCORRECT STARTING ADDRESS, 
which means the file you're trying to 
load does not have the starting address 
you specified when you ran MLX; 
LOAD ENDED AT address, which 
means the file youre trying to load 
ends before the ending address you 
specified when you started MLX; and 
TRUNCATED AT ENDING AD- 
DRESS, which means the file you're 
trying to load extends beyond the end- 
ing address you specified when you 
started MLX. If you see one of these 
messages and feel certain that you've 
loaded the right file, exit and rerun 
MLX, being careful to enter the correct 
starting and ending addresses, 

The 128 version also has a CATA- 
LOG DISK option so you can view the 
contents of the disk directory before 
saving or loading. 

The QUIT menu option has the ob- 
vious effect—it stops MLX and enters 
BASIC, The RUN/STOP key is dis- 
abled, so the Q option lets you exit the 
program without turning off the com- 
puter, (Of course, RUN/STOP-RE- 
STORE also gets you out.) You'll be 
asked for verification; press Y to exit to 
BASIC, or any other key to return to the 
menu. After quitting, you can type 
RUN again and reenter MLX without 
losing your data, as long as you don’t 


use the clear workspace option, 


The Finished Product 


When you've finished typing all the 
data for an ML program and saved your 
work, you're ready to see the results. 
The instructions for loading and using 
the finished product vary from program 
to program. Some ML programs are de- 
signed to be loaded and run like BASIC 
programs, so all you need to type is 
LOAD “filename’’,8 for disk (DLOAD 
“filename” on the 128) or LOAD “file- 
name” for tape, and then RUN. Such 











programs will usually have a starting 
address of 0801 for the 64 or 1C01 for 
the 128. Other programs must be re- 
loaded to specific addresses with a com- 
mand such as LOAD “filename’’,8,1 for 
disk (BLOAD “filename” on the 128) or 
LOAD “filename’’,1,1 for tape, then 
started with a SYS to a particular mem- 
ory address. On the Commodore 64, 
the most common starting address for 
such programs is 49152, which corre- 
sponds to MLX address C000. In either 
case, you should always refer to the ar- 
ticle which accompanies the ML listing 
for information on loading and running 
the program. 


An Ounce Of Prevention 

By the time you finish typing in the data 
for a long ML program, you may have 
several hours invested in the project. 
Don’t take chances—use our “Auto- 
matic Proofreader’ to type the new 
MLX, and then test your copy thorough- 
ly before first using it to enter any sig- 
nificant amount of data. Make sure all 
the menu options work as they should. 
Enter fragments of the program starting 
at several different addresses, then use 
the Display option to verify that the 
data has been entered correctly. And be 
sure to test the Save and Load options 
several times to ensure that you can re- 
call your work from disk or tape. Don’t 
let a simple typing error in the new 
MLX cost you several nights of hard 
work. 


Program 1: MLX For Commodore 
64 


SS 16 REM VERSION 1.1: LINES 8 
38,950 MODIFIED, LINES 4 
85-487 ADDED 

EK 160 POKE 56,50:CLR:DIM INS, 

1,J3,A,B,A$,B$,A(7) NS 

C448 :C6=16 1C7=7 :22=217 

4=254:25=255 1Z6=256 22.75 

127 

FA=PEEK(45)+Z6*PEEK (46) 

3BS=PEEK (55) +Z6*PEEK(56 

) sH$="0123456789ABCDEF" 

RS=CHR$ (13) :L$=" (LEFT) " 

38$s" “3 DS=CHRS(20)225= 

CHR$(6):T§="{13 RIGHT)" 

$D#54272:FOR I=SD TO SD 

+23:POKE 1, 01NEXT:POKE 

(SPACE}SD+24,15:POKE 78 

8,52 

PRINT" {CLR} "CHRS (142) CH 

R$(8):POKE 53280,15:POK 

E 53281,15 

PRINT T$” (RED}(RVS} 

{2 SPACES)]&8 @3 

{2 SPACES} "sPC(28)" 

(2 SPACES}(OFF} (BLU) ML 

X Ir {RED} {Rvs} 

{2 SPACES}"spc(28)" 

{12 SPACES}{BLU}" 

PRINT" {3 DOWN) 

{3 SPACES}]COMPUTE!'S MA 

CHINE Bho EDITOR 


{3 
JB 180 PRINT"{BLK)STARTING ADD 


DM 119 


CJ 120 


SB 130 


FR 178 














COMPUTE!’s Gazette August 1987 111 





GF 198 


KR 288 


PG 210 


DR 220 


BD 230 


JS 246 


258 
268 


276 


289 


298 
308 


318 


320 


338 


348 
350 


368 


378 
380 


398 
408 


416 
4208 


436 
440 


450 


460 


470 
480 


485 





RESSE43"; :GOSUB300:SA=A 
D:GOSUB1940:IF F THEN18 


8 
PRINT" {BLK} {2 SPACES}EN 
DING ADDRESSE43"; :GOSUB 
300: EA=AD:GOSUB1030:1F 
(SPACE}F THEN190 
INPUT" {3 DOWN} (BLK}CLEA 
R WORKSPACE [Y/N]R43";A, 
$:IF LEFTS(AS,1)<>"¥"TH 
EN226 
PRINT"{2 DOWN) {BLU} WORK 
ING. « FORI=BS TO BS+ 
EA-SA+7:POKE I,@:NEXT:P 
RINT"DONE" 
PRINTTAB(16)"{2 DOWN} 
{BLK} {RVS] MLX COMMAND. 
(SPACE}MENU [DOWN] E43": 
PRINT T$"(RVSJE{OFF]NTE 
R DATA" 
PRINT TS$"{RVS}D{OFF }ISP 
LAY DATA":PRINT TS" 
{RVS}L{OFFJOAD FILE” 
PRINT TS"{RVS}S{OFFJAVE 
PILE":PRINT TS"{RVS}Q 
{orF}uIT(2 DOWN} {BLK}" 
GET A$:IF AS$=N$ THEN250 
A=@:FOR I=] TO 5:IF AS= 
MIDS ("EDLSQ",I,1)THEN A 
=I:I=5 
NEXT:0N A GOT0420,610,6 
96, 780, 280 :GOSUB1060 :GO 
70258 
PRINT" {RVS) QUIT ":INPU 
T"({DOWN}E43ARE YOU SURE 
Cy/N]";AS:IF LEPTS(AS, 
1) <>"¥"THEN220 
POKE SD+24,@:END 
INS=NS :AD=@ ; INPUTINS :1F 
LEN (INS) <> 4THENRETURN: 
B$=IN$ :GOSUB32G:AD=A:BS. 
=MID$ (INS, 3) :GOSUB326:A 
D=AD*256+A:RETURN 
A=Q:FOR J=1 TO 2:AS$=MID 
$(B$,0,1) sB=ASC(A$)-C4+ 
(A$>"@") *C7 :ASA*CO+B 
IF B<@ OR B>15 THEN AD= 
O:A=-1:5=2 
NEXT: RETURN 
B=INT(A/C6):PRINT MIDS$( 
H$,B+1,1) ; :BSA-B*C6 :PRI 
NT MIDS(HS,B+1,1);:RETU 





RN 

A=INT(AD/2Z6) :GOSUB350:A 
=AD-A*Z6 :GOSUB350:PRINT 
wen 

CK=INT(AD/Z6) :CK=AD-24* 
CK+2Z5* (CK>Z7) sGOTO39B 
CK=CK*Z2+Z5* (CK>Z7)+A 
CK=CK+Z5* (CK>Z5) : RETURN 
DOWNJSTARTING AT 
OSUB30G:IF INS<> 
N$ THEN GOSUB1O30:IF F 
{SPACE} THEN429 

RETURN 

PRINT" (RVS} ENTER DATA 
{SPACE}";GOSUB490;IF IN 
$=N$_THEN220 
OPEN3,3:PRINT 
POKE198,:GOSUB360:1F F 
THEN PRINT IN$:PRINT™ 
{up} (5 RIGHT)"; 

FOR I=8 TO 24 STEP 3:B$ 
=S$:FOR J=1 TO 2:1F FT 
HEN BS=MIDS(INS,I+J,1) 
PRINT" {RVS}"BSL$;:1F I< 
24THEN PRINT" {OFF)"; 
GET AS:IF AS=NS$ THEN479 
IF (AS>"/"ANDAS<":")OR(A 
$>"@"ANDAS 
A=-(AS="M 


























3*(ASS".")-4*(AS="/")-5 





cM 


MP 


Qs 


ac 


PK 


GQ 
QA 


KS 


FP 


HQ 


487 


490 


508 


518 
528 


538 


548 


558 


569 


578 


580 


598 


680 
618 


620 


638 


740 


")=11* (A$="0") -12* (AS=" 
p" 


A=A-13*(AS=S$):IF A THE 
N AS=MID§(“ABCD123E456F 
8",A,1) GOTO 540 
IF AS=R§_AND((I=6) AND(J 
)OR F)THEN PRINT B$;: 
J=2:NEXT: 1=24:GOTOS5B 
IF A$="{HOME]" THEN PRI 
NT BS :=2:NEXT: 1=24 :NEX 
T:F=0:GOT0440 
IE (AS="{RIGHT}")ANDF TH 
ENPRINT BSLS ; :GOTO546 
IF A$<>L$ AND AS<>D$ OR 
((1=8)AND(J=1))THEN GOS 
UB1069:GOT04708 
AS=L$+SS+L$:PRINT BSLS; 
2J=2-J:1F J THEN PRINT 
{SPACE} L$; :I=1-3 
PRINT A$;:NEXT J:PRINT 
(SPACE}S$7 
NEXT I:PRINTsPRINT"(UP} 
{5 RIGHT)"; :INPUT#3, INS 
IF INS=N$ THEN CLOSE3: 
GoTo228 
FOR I=1 T0 25 STEP3:BS= 
MID$( INS, 1) :GOSUB320:1F 
1<25 THEN GOSUB380:A(I 
/3)=A 
NEXT:IF A<>CK THEN GOSU 
B1060 :PRINT" {BLK} (RVS} 
{SPACEJERROR: REENTER L 
INE £43":F=1:GOT0440 
GOSUB1086 :B=BS+AD-SA:FO 
R I=0 TO 7:POKE B+I,A(1 
) NEXT 
AD=AD+8:1F AD>EA THEN C 
LOSE3 :PRINT" (DOWN) {BLU} 
** END OF ENTRY ** {BLK} 
{2 DowN}":GoTo760 
F=0 :GOTO44B 
PRINT" {CLR} (DOWN } {RVS} 
{SPACE}DISPLAY DATA ":G 
OSUB400:1F INS=N$ THEN2 





28 
PRINT" (DOWN ] {BLU} PRESS: 
{RVSJSPACE(OFF} TO PAU 
SE, {RVS]RETURN(OFF} TO 
BREAKE43{ DOWN)" 
GOSUB366 :B=BS+AD-SA: FOR 
I=BTO B+7:A=PEEK(1) :GOS 
UB350:GOSUB380:PRINT SS. 


NEXT: PRINT" (RVS}"; sA=CK 
:GOSUB35@:PRINT 
P=1:AD=AD+8:IF AD>EA TH 
ENPRINT" {DOWN} {BLU} ** E 
ND OF DATA **":GOTO220 
GET A$:IF A§$=R$ THEN GO 
SUB1989:GOTO228 

IE A$=S$ THEN F=F+1:GOS 
UB1080 

ONFGOTO639, 660,636 
PRINT" {DOWN} {RVS} LOAD 
{SPACE}DATA ":0P=1:GOTO 
710 

PRINT" {DOWN} (RVS} SAVE 
{SPACEJFILE ";0P=0) 
INSSN$ : INPUT" (DOWN } FILE 
NAMER43";INS:IF INS=NS 
( SPACE} THEN2208 
F=0:PRINT" (DOWN) {BLK} 
{RvS}T{OPFJAPE OR {RVS} 
D(OFFJISK: £43"; 

GET AS: IF AS$="T"THEN PR 
INT"T{ DOWN J" :GOTO88S 

IF A$<>"D"THEN730 





cs 


sc 


KM 


JE 


AE 


xP 


FR 


DP 


PP 


FD 


EF 


| 


758 


768 
778 


788 


798 
8008 


810 
828 


836 


8408 
850 


868 


B70 
880 


89B 


900 


918 


928 
930 


940 


950 
960 


970 


980 


998 


1098 
1018 


1928 


1930 


PRINT"D[DOWN)":0PEN15,8 
715, "I8:":B=EA-SA:INS=" 
B:"+INS:IF OP THEN81D 
OPEN 1,8,8,INS+",P,W":G 
OSUB860:IF A THEN220 
AH=INT(SA/256) sAL=SA-(A 
H*256) :PRINT#1, CHRS (AL) 
7CHRS (AH) 7 

FOR I=8 TO B:PRINT#1,CH 
RS$(PEEK(BS+I));:IF ST T 
HENS 

NEXT: CLOSE] :CLOSE15 :GOT 
0340 
GOSUB1960:PRINT" {DOWN} 
{BLK}ERROR DURING SAVE: 
£43" :GOSUBBE69 :GoTO229 
OPEN 1,8,8,INS+",P,R":G 
OSUB860:IF A THEN220 
GET#1,A$,BS :AD=ASC(AS$+Z 
$)+256*ASC(BS+Z$):IF AD 
<>SA THEN F=1:GOTOB59 
FOR I=@ TO B:GET#1,A$:P 
OKE BS+1,ASC(A$+Z$) :1F( 
I<>B)AND ST THEN F=2:AD 
=I:I=B 

NEXT:IF ST<>64 THEN F=3 
CLOSE1:CLOSE15:0N ABS(F 
>9)+1 GOTO968,978 
INPUT#15,A,A$:IF A THEN 
CLOSE] :CLOSE15 :GOSUB10 
68:PRINT"{RVS}JERROR: "A 
s 


RETURN 

POKE183,PEEK(PA+2) :POKE 
187, PEEK(FA+3) :POKE1L88, 
PEEK(PA+4) : IFOP=OTHEN92 


a 

SYS 63466:IF(PEEK(783)A 
ND1)THEN GOSUB1060:PRIN 
tT" {DOWN} {RVS} FILE NOT 
{SPACE}FOUND “:GOTO690 
AD=PEEK (829) +256*PEEK(8 
30):IF AD<>SA THEN F=l: 
GoTo970 
A=PEEK (831) +256* PEEK (83 
2)=1 :P=F=2* (A<EA)—3* (A> 
EA) sAD=A-AD:GOTO930 
A=SA:B=EA+1:GOSUB1010:P 
OKE780,3:SYS 63338 
S+(EA-SA)+1:GOS 
NOP GOTO950:SY 





S 63591 
GOSUB1680:PRINT" (BLU] ** 
SAVE COMPLETED **":GOT 
0228 

POKE147,@:SYS 63562:1P 
{SPACE}ST>9 THEN970 
GOSUB1680:PRINT" (BLU) ** 
LOAD COMPLETED **":GOT 
0226 
GOSUB1060:PRINT" {BLK} 
{RVSJERROR DURING LOAD: 
{Down} £43":ON F GOSUB98 
9,998, 1800 :GOTO229 
PRINT" INCORRECT STARTIN 
G ADDRESS :GOSUB360+ 
PRINT") ":RETURN 
PRINT"LOAD ENDED AT "7: 
AD=SA+AD: GOSUB360 :PRINT 
DS : RETURN 

PRINT "TRUNCATED AT END 
ING ADDRESS":RETURN 
AH=INT(A/256) :AL=A-(AH 
*256) :POKE193,AL: POKEL 





94, AH 

AH=INT(B/256) :AL=B-(AH 
#256) :POKE174,AL:POKEL] 
75, AH: RETURN 

IP AD<SA OR AD>EA THEN 
105: 


1048 IF(AD>511 AND AD<46960 
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HC 


AR 


DX 


PF 


AC 


RE 
xP 


FB 


KE 


oB 
FJ 


GQ 


FE 


DK 


FH 


| Me 


QOH 





)OR(AD> 49151 AND AD<53 
248) THEN GOSUB1980:F=0 
RETURN 
GOSUB1866:PRINT"{RVS}_ 
(SPACE} INVALID ADDRESS 
{bowN) (BLK) ":F=1:RETU 


1055 


RN 

POKE SD+5,31:POKE SD+6 
4208:POKE SD,240:POKE 
{SPACE }SD+1,4:POKE SD+ 
4,33 

FOR S=1 TO 100:NEXT:GO 
101898 

POKE SD+5,8:POKE SD+6, 
240:POKE SD,®:POKE SD+ 
1,98:POKE SD+4,17 

FOR S=1 TO 100:NEXT:PO 
KE SD+4,8:POKE SD,9:PO 
KE SD+1,8:RETURN 


1660 


1678 
1089 


1098 


Program 2: MLX For Commodore 
128, 


108 TRAP 960:POKE 4627,128: 
DIM NLS,A(7) 

110 22=2:24"254375255:76"2 
56:2 7=127 :BS=256*PEEK (4 
627) :EA=65286 

120 BE$=CHR$(7):RTPS$=CHRS$(13 
):DL$=CHR$ (20) :SP$=CHRS$ 
(32) sLFS$=CHRS$ (157) 

130 DEF FNHB(A)=INT(A/256)+ 
DEF FNLB(A)=A~FNHB(A)*2 
56:DEF FNAD(A)=PEEK(A)+ 
256*PEEK(A+1) 

148 KEY 1,"A":KEY 3,"B":KEY 
5,"C"sKEY 7,"D"sVOL 15 
+IF RGR(@)=5 THEN FAST 

158 PRINT" (CLR}"CHRS(142);C 
HR$(8):COLOR 8,15:COLOR 
4,15:COLOR 6,15 

160 PRINT TAB(12)"(RED) 
(RVS} (2 SPACES) &9 @3 
(2 SPACES) "RT$;TAB(12)" 
(Rvs}{2 spaces) (OFF) 
{BLU} 128 MLX (RED) 
{rvs} (2 SPACES} "RTS$;TAB 
(12)"{Rvs}(13 Spaces) 
(BLu}" 

1706 PRINT"{2 DOWN) 

(3 SPACES }COMPUTE!'S MA 
CHINE LANGUAGE EDITOR 
{2 pown)" 

180 PRINT" (BLK}STARTING ADD 
RESSE43";:GOSUB 260:1F 
{SPACEJAD THEN SASAD:EL 
SE 180 

196 PRINT" (BLK) (2 SPACES)EN 
DING ADDRESSE43"; :GosuUB 
2603:1F AD THEN EASAD1E 
LSE 199 

200 PRINT" {DOWN} (BLK}CLEAR 
{SPACE}WORKSPACE [Y/N]? 
B49 "sGETKEY A$:IP AS$<>" 
XY" THEN 220 

216 PRINT" {DOWN} (BLU}WORKIN 
G...";:BANK O:FOR A=BS 
{SPACE}TO BS+(EA-SA) +7: 
POKE A,@:NEXT A:PRINT"D 
ONE" 

220 PRINT TAB(10)"{DOWN} 
{BLK} (RVS} MLX COMMAND 
{SPACE)MENU &43(DOWN}": 
PRINT TAB(13)"(RVSJE 
{OFFJNTER DATA"RTS;TAB( 
13)"{RVS}D{OFF}ISPLAY D 
ATA"RTS$;TAB(13)"{RVS]L 


HB 239 PRINT TAB(13)"{RVS}s 


(OFFJOAD FILE” 





AP 


‘SX 


Qa 


PS 


RC 


XB 


oP 


BA 


248 


250 


260 
270 


288 
298 


388 


3108 


320 


338 
348 


350 


360 


370 


380 


398 


408 
418 
420 


43 


440 


450 


460 


478 
480 


498 


580 





{OFFJAVE FILE"RT$;TAB(1 
3)"{RVSJCLOFPJATALOG DI 
SK"RT$;TAB(13)"{RVSJQ 
{orF}UIT {DOWN} [BLK}" 
GETKEY A$:A2INSTR("EDLS 
€Q",A$):0N A GOTO 346,5 
58, 648,650,938, 940:GosuU 
B 958:GOTO 240 
PRINT"STARTING AT"; :GOS 
UB 260:IF(AD<>0)OR(AS$=N 
L$) THEN RETURN?ELSE 250 
AS=NL$:INPUT AS: IF LEN( 
AS)=4 THEN AD=DEC(A$) 
IF AD=0 THEN BEGIN: IF A 
$<>NL$ THEN 300:ELSE RE 
‘TURN? BEND 

IF AD<SA OR AD>EA THEN 
(sPACE} 300 

TF AD>511 AND AD<65280 
(SPACE)THEN PRINT BES;+ 
RETURN, 

GOSUB 958:PRINT"{RVS} I 
NVALID ADDRESS {DOWN} 
{BLK }"sAD=0s RETURN 
CK*=FNHB (AD) :CK=AD=24*CK 
+25*(CK>27):GOTO 330 
CK®CK*Z24+25* (CK>27) +A 
CK=CK+25*(CK>Z5) sRETURN 
PRINT BES; "{RVS} ENTER 
{SPACE}JDATA ":GOSUB 256 
sIF AS=NL$ THEN 220 
BANK @3PRINT:F=0:OPEN 3 


AS 

GOSUB 310:PRINT HEX$(AD 
)t"i"72IP F THEN PRINT 
(SPACEJL$:PRINT" (UP) 

{5 RIGHTS"; 

FOR I=0 TO 24 STEP 3:B$ 
=SPS$:FOR J=1 TO 2;1F F 
(SPACE) THEN B$=MID$(L$, 
I+d,1) 

PRINT" {RVS}"BS+LF$;:1F 
(SPACE}1<24 THEN PRINT" 
(OFF) "; 

GETKEY AS:IF (A$>"/" AN 

D AS<"s") OR(AS>"@" AND 
AS<"G") THEN 470 

IF AS="+" THEN AS="E":G 
oTO 470 

IF AS="=" THEN A$="P"sG 
oro 470 

IF AS=RT$ AND ((I=0) AN 
D (J=1) OR F) THEN PRIN 
T BS;3J=2:NEXTs1=24:GOT, 
0 480 

IF A$="(HOME)" THEN PRI 
NT B$:d=2:NEXT;1=24 :NEX 
TsF=8:GOTO 368 

IF (AS="(RIGHT}") AND F 
THEN PRINT BS+LF$;:GOT 
0 478 

TF A§$<>LF$ AND A$<>DL$ 
(SPACEJOR ((I=@) AND (7 
=1)) THEN GOSUB 956:coT 
0 396 
AS=LF$+SPS+LF$:PRINT BS. 
+LPS;:d=2-d:1F J THEN P 
RINT LF$;:1=1-3 

PRINT A$;:NEXT J: PRINT 
{SPACE}SP$; 

NEXT I:PRINT: PRINT" (UP} 
{5 RIGHT)"; :L$=" 

(27 spaces)" 

FOR I=] TO 25 STEP 3:GE 
T#3,A$,BS:IF AS=SP$ THE 
N I=25:NEXT:CLOSE 3:GOT 
0 228 

AS=A$+B$ :A=DEC (A$) :MIDS. 
(U$,1,2)=A$:IF 1<25 THE 
N GOSUB 326:A(I/3)=A:GE 
T#3,A$ 





AR 


DX 


xB 


CA 


MC 


oF 


XA 


RE 


sQ 


SP 


EG 


oH 


MC 


ce 


GA 


FD 


518 


520 


538 
548 


558 


560 


578 
580 


591 
609 


618 
620 


630 
649 


658 
660 


678 


68) 


S 


698 
709 


716 


728 


730 


748 


750 


768 


NEXT I:IF A¢<>CK THEN GO 
SUB 950:PRINT: PRINT" 
(RVS] ERROR: REENTER LI 
NE ":F=1:GOTO 368 

PRINT BE$:B=BS+AD-SA:FO 
R I= TO 7:POKE B+I,A(I 
)sNEXT I 

PeO:AD=AD+8:IF AD<=EA T 
HEN 366 

CLOSE 3:PRINT"{DOWN) 
(BLU}** END OF ENTRY ** 
(BLK}(2 DowN}":GoTO 658 
PRINT BE$;"{CLR} {DOWN} 
{RVS} DISPLAY DATA ":GO 
SUB 258:IF AS=NL$ THEN 
{SPACE} 226 

BANK 6:PRINT" (DOWN) 
(BLUJPRESS: (RVS}SPACE 
{OFF} TO PAUSE, {RVS}RE 
TURN({OFF} TO BREAKR49 
{Down} " 

PRINT HEX$(AD)+":";:GOS 
UB 3103:B=BS+AD-SA 

FOR IsB TO B+7:ASPEEK(I 
) PRINT RIGHTS (HEX$ (A), 
2);SP$;1GOSUB 320:NEXT 
{SPACE} 

PRINT" {RVS}"; RIGHTS (HEX 
$(CK),2) 

P=] :ADsAD+8:1F AD>EA TH 
BLU} ** END OF 
GoTo 226 

GET A$:IF AS=RTS THEN P 
RINT BE$:GOTO 220 

TF AS=SP$ THEN F=P+1:PR 
INT BES; 

ON F GOTO 578,610,570 
PRINT BES"{DOWN) (RVS} L 
OAD DATA ":0P=1:GOTO 66 
6 





PRINT BES$"{DOWN}{RVS} S 
AVE FILE ":0P=d 

FeQ s¥S"NL§: INPUT" PILENA 
MEES3";PS:IF FS=NL$ THE 
N 220 

PRINT" (DOWN) (BLK) {RVS)T: 
{OFFJAPE OR [RVS}D{oFF} 
ISK; 843"; 

GETKEY A$:IF AS="t" THE 
N B5O:ELSE IF AS<>"D" T 
HEN 680 
PRINT"DISK{DOWN}":IF OP 
THEN 760 

DOPEN#1, (F§+",P"),WrIF 
(SPACEJDS THEN A$=DS$1G 
oro 740 

BANK 0:POKE BS-2,PNLB(S 
A) :POKE BS~1,FNHB(SA):P 
RINT"SAVING ";F$:PRINT 
POR A=BS-2 TO BS+EA-SA: 
PRINT#1,CHR$(PEEK(A));: 
IF ST THEN AS="DISK WRI 
TE ERROR":GOTO 750 

NEXT AiCLOSE 1:PRINT" 
{BLU}** SAVE COMPLETED 
{SPACE]WITHOUT ERRORS * 
*":GOTO 226 

IF DS#63 THEN BEGIN:CLO 
SE 1:INPUT"(BLK}REPLACE 
EXISTING FILE [Y/N]k43 
“;A$:IF A$="¥" THEN SCR 
ATCH(F§$):PRINT:GOTO 709 
sELSE PRINT" {BLK}":GOTO 
660:BEND 

CLOSE 1:GOSUB 950:PRINT 
“(UBLK) (RVS} ERROR DURIN 
G SAVE: §43":PRINT A$:G 
OTO 228 
DOPEN#1,(FS+",P" 
THEN AS$=DS$ :F=4 :CLOSE 
(SPACE}1:GoTO 796 
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PX 778 GET#1,A$,B$:CLOSE 1:AD= 1 
ASC(A$)+256*ASC(BS) :IF 
{SPACEJAD<>SA THEN F=1: 
GOTO 798 

KB 780 PRINT“LOADING ";P$:PRIN 
T:BLOAD(F$),B8,P(BS) :AD 
=SA+FNAD(174)-BS-1:F=-2 
*(AD<EA)-3*(AD>EA) 

RQ 796 IF F THEN 8@0:ELSE PRIN 
T"{BLU)** LOAD COMPLETE 
D WITHOUT ERRORS **":GO 
TO 220 

ER 880 GOSUB 950:PRINT" {BLK} 
{RVS} ERROR DURING LOAD 
+ B43":ON F GOSUB 814,8 
28, 838,840:GOTO220 

QJ 810 PRINT"INCORRECT STARTIN 
G ADDRESS (";HEX$(AD);" 
)": RETURN 

DP 820 PRINT"LOAD ENDED AT " 
EX$(AD):RETURN 

EB 830 PRINT" TRUNCATED AT ENDI 
NG ADDRESS ("HEX$(EA)") 



























LANDMARK v1.0 


The Computer Study Bible 

LANDMARK v1.0 consists of the entire} 

King James version of the Bible, the 
words of Christ highlighted in red, 

INDIVIDUAL VERSE REFERENCES 

(as in a large Family Bible), and 

a 3300+ word CoN Celeeess 


Can Your 
Computer Make 





* 100% Machine Language for efficiency and speed 
+ View any Scripture with or without its references 

+ Outline text in a pre-selected color of your choice 

+ Record permament notes of your Bible Study 

+ Add to of create a new reference to any vorso{s) 

+ Copy Scripture to add to your own files, notes or 
teteronces. Move Scripture around for direct study 

+ Search any chapter, book, Testament, or your own 
files for up to 12 phrases at a time 

+ Print any part of the Bible or any references 

* Create your own Personal Bible containing all your 


Gage of your 
e number selection 


gr two methods that 
other programs gt work in your 
state. We don't 
available than the 


LOTTERY +4. 



















"; RETURN ‘notes, comments, referencing, and outining of text 
FP 848 PRINT"DISK ERROR ";A$:R + Unlimited size of your Personal Bble 
ETURN LANDMARK 1.0 for the Commodore 64 Is $179.95} 


CALL or WRITE for our FREE BROCHURE | 
BIBLE BYTES P.O Box 1584 Ballwin, MO 63022 
(814) 527-4505 Hours: Mon-Fri Sam-Spm (cst) 

use our answering machine after hours. 
lPostage FREE (in cont. US) MC & VISA add 3 1/2% 
$6.30 MO residents add 5.725% sales tax $10.30) 
Personal checks alow 14 businss days 10 dear 


KS 850 PRINT"TAPE"sAD=POINTER( 
F$):BANK 1:A=PEEK(AD) 2A 
Bessy ) rAH=PEEK(AD 
+2 

XX 860 BANK 15:SYS DEC("FF68") 
+9, 1S¥S DEC("FFBA"),1, 
1,8:SYS DEC("FFBD"),A,A 
L, AH1SYS DEC("FF98"),12 
B:IF OP THEN 890 

FG 870 PRINT:A=SA:B=EA+1 :GOSUB 

920:SYS DEC("E919"),3: 
PRINT"SAVING ";FS 

AB 880 A=BS:B=BS+(EA-SA)+1:GOS 
UB 920:SYS DEC("EA18"): 
PRINT" (DOWN) (BLUJ** TAP 


R/GAVE COMPLETED **"360 
TO 22 

cP 890 SYS Deet E99A") :PRINT:I DUST COVERS 
F PEEK(2816)=5 THEN GOS SATISFACTION GUARANTEED 
UB 950:PRINT" {DOWN} i catch MADETO RI 
(BLK]({RVS] PILE No? FOU 3 HEAVY 32-02. VINYL ANTLSTATIC 
ND ":GOTO 220 Se EXTENDS EQUIPMENT UFE 

GQ 908 PRINT"LOADING ... {DOWN} coat ote Ueeates oc bers 


":AD=FNAD( 2817) :IF AD<> 








C.D. orders call 
(312) 566-4647, 
Superior Micro Systems, Inc. 


P.O Bos 713 + Wheeling 1k 60090 
Dealer inquires welcome! 






To incroaso soasonaly 
‘wo aro offoring for a limited time: 


$15.00 OFF 
Winen yau placa your erder for LANDMARK v1, 
2nd in Bis coupan, oF mention the coupon number 
COUPON # 1209 COUPON EXPIRES 09/90/87 

















You Have a Choice. 


Numeric Keypads 


‘COMPUTERS 





SA THEN P=1:GOTO 800:EL eae 300 

a CEPT UT Satna 3 13.00 
*(AD<EA)=3*(AD>EA Ami z 13.00 

3D 910 A=BS:B@BS+(EA-SA)+1:GOS Wii Sel fies 3.00 
UB 920;SYS DEC("E9EB")s || Aor soon. 130x€ “1000 Foon 13.00 

IP ST>@ THEN 8O0:ELSE 7 |! Qn’ sex $400 Chisen MSP 1013.00 

IRM S081 Keyboord 8.00. C/DPS 1101 1809 


(Dimensions Required 
for IBM Clones) 


Gemini 10 & Stor 10's 13.00 
Gemini 15 & Star 15's 16.00 
‘Atori 1027 1 


90 

XB 920 POKE193,FNLB(A):POKE194 
+ PNHB(A):POKE 174,FNLB( 
B):POKE 175,FNHB(B):RET 
URN 













MONITORS 
Aeneas. 19.00 CP Numeric Keypad. Deluxe Model 


90. C1702, BMC Color.16.00 








CP 930 CATALOG: PRINT" {DOWN} €.1902/Amiga 19.00 || * Top quality. low profile for smooth, reliable 
{BLU}** PRESS ANY KEY P Ardek 300700 19.00] data entry. ® Easily connected with computer 


OR MENU **";3GETKEY A$:G keyboard. ¢ No software is required, 100! 





ChvoaW Magne 40 19.90 
oTo 226 hort 1080 NEC (Stote Model) Compatible with all programs. © For C64, 64C, 
MM 940 PRINT BES"(RVS) QUIT PRINTERS SX-64", VIC-20 and Apple Ile. © One year 
£49";RT$;"ARE YOU SURE €.1525/MPS 801 10,00 Thompson CM 365-66 19.00 || warranty and available in three models: 
Gj E156 mos oo Tenor (Stcie Mode) 
(SPACE]LY/NJ?":GETKEY A |! Ehirseos.cisz0._\a00 Seow Sci00 1909 


$:IF A$<>"Y" THEN 226:E 
LSE PRINT"({CLR}":BANK 1 
5:END 
JE 956 SOUND 1,500,10:RETURN 
AP 966 IF ER=14 AND EL=260 THE 
N RESUME 300 


Panatonic 1090/91 13,00 Zenith (State Model) 19.00 
Okidata 120/192 ....13.00 VIDEO RECORDERS 13.00 
Okimate 10/20 8.00 State Moke & Mode! 
Epion MX/PX/RXBO 13,00 Dimensions. required 
Epion 1X80/C-1000. 13.00 including clock cut-out 

Oder by sotiog MAKE, MODEL and COLOR CHOICE - TAN or BROWN with 

check or meney order plus $1.50 per item ($459 ma. shipping ad handling 

Calif Res. Incude 6’ + lc ax. APO, 200/tem, Fcegn 3.00/tem 








Computer Power Supply 


© Has better features than the original one at 
$39.95. @ Is serviceable, NOT disposable. © For 


MK 970 IF ER=14 AND EL=580 THE 


N RESUME NEXT 


SE PRINT ERRS$(ER);" ERR 


SPECIAL COVERS WILL BE MADE TO YOUR 
DIMENSIONS. SEND YOUR REQUIREMENTS 


24621 PAIGE CIRCLE DEPT. A 





Commodore and Atari* Computers. 


KJ 988 ie ‘ees Bee, pales oa FOR OUR LOW PRICE QUOTES. Cc ter Pl 35-475 
'=4:AS=DS$: omputer Place (213) 4 
DQ 990 IF ER=30 THEN RESUME:EL Crown Custom Covers 23914 Crenshaw Blvd. Torrance, CA 90505 





LAGUNA HILLS, CA 92653, Requires adaptor at additional cost. VISA, MC & AE accepted, 
(714) 472.6362 No GOD. Ada $300 shoring CA residents 2406 5% sais tax 
er inquiries weleome 














OR IN LINE";EL 
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Classified 





SOFTWARE 


ARB 1541 DISK DRIVE ALIGNMENT PROGRAM 
Easy to use. No special tools req‘d! Includes detail 
diagrams & Instr’s, Do it yourself, SAVE! Only 
Box 392, Bklyn, NY 11229 


COMMODORE: TRY BEFORE YOU BUY, 

Best selling games, utilities, educational + 
classies and new releases. 100’s of titles 
Visa/MC. Free brochure, RENT-A-DISC, Frederick 
Bldg. #345, Hunt'n, WV 25701 (304) 529-3232 


FREE SOFTWARE for C64, C128, IBM & CPM 
Send SASE for info (specify computer) to: 
PUBLIC DOMAIN USERS GROUP 

PO Box 1442-A2, Orange Park, FL 32067 




















New Plus/4 and C128 Software (disk only) 
Games, Educational, Finance Statistics. 

Write for info, CARDINAL SOFTWARE, 14840 
Build America Dr., Woodbridge, VA 22191 


DARKSTAR SYSTEMS SOFTWARE CBBS 
V3:$49.95...OverL.ink:$29.95.,.Both:$79.90, 24 hr 
BBS 416-445-6788 Cert Chk/MO US Funds. 113 
Valleywoods Rd #95, Don Mills, Ont, Can M3A 
2R8 


C64 FINEST PUBLIC DOMAIN PROGRAMS 
*On Disk* Most $1.50 *On Disk* 

YOU pick the programs that you want! 
For a list and description, SEND SASE to: 
JLH Co., Dept. G, Box 67021, Topeka, KS 66667 














~ $$ WIN $$ 
Ae ee 
Hondicappir 

om Software fd 





$a9 95 GALYHOUND Nandleapping 420%, enhor 
Upto iSeritionanatyied cles speed. Himes, ach, ack po 
ahelen nun ponitons Mofaotbotbaem, 43798 he Raia 
ball fyilenn 44095 Speci dkjlope: COM 4a, 128-Ada 82 pan 
M/A accepted. fae Ifo. SOFWARE EXCHANGE, P.O. Box 
$3an.ce oom 39 (319) 626-908 Ordos 4800 
Et 














FREE PUBLIC DOMAIN SOFTWARE - Request 
free catalog or send $2 for sample disk 

and catalog (refundable). Commodore 64-128 
CALOKE IND., Box 18477, KC, MO 64133 


BIO-RHYTHMS CHART PROGRAM: This 
program prints numerical Bio-rhythm charts for 
any month; C64:Disk:Printer. Send $10.00 to: 
Peck's, POB 5341, Greeley, CO 80631 


50 GREAT ARCADE GAMES ON ONE DISK OR 
Cassette! For the C64/128 and VIC-20! Quality 
graphics, fully menu-driven, Just $34.95 
postpaid from R, M. Harris, P.O, Box 12303, 
Fort Wayne, Indiana 46863. Plus/4 

software and accessories also available! 

Send self-addressed, stamped envelope 

for free price list. 


SOFTWARE EXTRAVAGANZA! 20+ QUALITY 
prog’s for C64/1541, Everything from arcade to 
LOTTO busting. Cat incl! Send $5 to: JL. Soft- 

ware, 1925 W. Skyview Dr., Dayton, OH 45432 























**** BBS CONSTRUCTION KIT 128 & 64 **** 
Design and make your own customized BBS 
For more info write: Powersystems, POB 
822, Coventry, RI02816 * BBS 401-822-4605 


Micro Detective: The Intelligent Debugger 
for BASIC on Commodore 64 (soon for 128) 
Error Detection - solves the mystery! 
Advanced Trace Routine, For info write: 
AMS, Dept. G, POB 323, Loomis, CA 95650 








100 NEW PUBLIC DOMAIN PROGRAMS! 
100 superb games on disk for $6, Specify 
C64 or C128, PD:SOFT, 227 Redwood Rd., 
Mansfield, OH 44907 





PROGRAMMERS - MENU MAGIC 128/80 Prof 
look w/pull-down windows for your applic pgm. 
4 time-saving pgms $25 “other softwar” 505 
Timmons St,, Nashville, TN 37211 









words to be set in boldface. 
General Information: Adver' 





10th), Send order and remittance to: Hai 


Blair at (919) 275-9809, 








COMPUTE!’s Gazette Classified is a low-cost way to tell over 
275,000 microcomputer owners about your product or service. 


Rates: $25 per line, minimum of four lines. Any or all of the first line set in capital 
letters at no charge. Add $15 per line for boldface words, or $50 for the entire ad set 
in boldface (any number of lines.) Inquire about display rates, 

Terms: Prepayment is required. Check, money order, American Express, Visa, or 
MasterCard is accepted. Make checks payable 

Form: Ads are subject to publisher's approval and must be either typed or legibly 
printed. One line equals 40 letters and spaces between words, Please underline 


ers using post office box numbers in their ads must 
supply permanent address and telephone numbers. Orders will not be acknowl- 
edged. Ad will appear in next available issue after receipt. 
Closing: 10th of the third month preceding cover date (e.g, June issue closes March 
ied 


Gazette, P.O. Box 5406, Greensboro, NC 27403. To place an ad by phone, call Harry 


MODEM OWNERS! 

Please call these numbers IMMEDIATELY! 
(300/1200 BAUD) 1-818-842-3322 

(300 BAUD) 1-818-840-8066 





COMPREHENSIVE GOLF PACKAGE - C64 
Disk, USGA HANDICAP SYSTEM, GOLF 
STATS PROG, 9-HOLE LEAGUE, COURSE 
RATING, MORE ! SEND $39.95 TO 
McCONNELL SOFTWARE, POB 652, 
MARATHON, NY 13803 








More than 200 great ML routines for 64 
128, ready to add to your own programs, in 
COMPUTE! Books! MACHINE LANGUAGI 
ROUTINES FOR THE COMMODORE 64/128, 
Explanations, uses, commented source code, 585 
pages, $18,95, Check your local bookstore or call 
(800) 346-6767, 


















to COMPUTE! Publications, 


Blair, Classified Manager, COMPUTE!’s 





Notice: COMPUTE! Publications cannot be responsible for offers or claims of 
advertisers, but will attempt to screen out misleading or questionable copy. | 








Nearly 400 EXTREMELY INEXPENSIVE C64 PD 
programs await you, Send $5 for two DS disks 
with 90+ programs, a listing and information. 
Eric Richardson, Box 681208, San Antonio, 

‘Texas 78268-1208 FAST SERVICE, 


LOSE, GAIN OR MAINTAIN WEIGHT WITH 
DIET PLANNER. 300++ servings, up to 7 days! 
C64/disk; $33 + $2 s/h, Stevens Software, 
203 Thomas Dr., LaGrange, GA 30240 


HARDWARE 


COMPUTER REPAIR - C64:$45, 1541:850 
Parts available. (816) 872-6311 

Mom é& Pop's Computer Shop, RR#2, Box 119 
Cainsville, MO 64632 MO/COD 











** COMMODORE REPAIR ** 
C64:$45, SX64:$75, 1541:$50, 1571:$65 

Will buy used units, Repairs warranted 30 days, 
Dave Taylor, 5106 Daventry PI,, Midland, TX 
79705 (915) 683-8398 Visa/MC 


MISCELLANEOUS 


VIC & C64 SOFTWARE/HARDWARE/ 
ACCESSORIES liquidation! 1670 (1200 Baud) 
modems $89! VIC cartridges 6/$10! Big List! 
BASIC FUNDAMENTALS, 3362 5 2300 E, SLC, 
UT 84109 














LOTTA CIPHER. 


(GET TWX BEST ODDS ON ANY LOTTERY 
[SIX NUMBER « PICK FOUR - DAILY GAME 


SUP HL-RESOLUTION DRAWING IN MULTIOR MONO COLOR 

+ 00r + anon. PUP, Ano NeMOLLIG WHOWE 

ta | roout expan h wow To Douek cre 

ster ‘ave ano Lona voun wnoows Ov ax 

toa {rer On ATAARD OOF ATR PTER 

‘ eovon souanes { elow COLON ATTROSUTES 

{ Yrvee LETTana bo anaes 

| POUYeON Buures 429480, ON AND ROTATE, TD BT AMP ANT WRERE 

1 roo PLOT anaw on ak Ex>0O WmOOw A YOUR ORAWHN AT TE 
$19.95 caer 


STOCK BROKER. 


PROFITS GUARANTEED O8 
"YOUR MONEY BACK 


(puree 2000 QUALITY, VOLATRA HUES A 
‘amo feu Mao SYATE Wa NAVE YOU POLY 
[vert AT Te LOWE Pace AO CONVENT 
‘To cab as Tet 870K ean 8 PEAR 

1 racono UF 70 44 TOGHS OA ome td 


COMODERE, COCKE MIA, AM 118 SYSTOS 




















He 


ACORN OF INDIANA, INC. 
= 


219-879-2284 


SHIPPING AND HANDLING, ADD 41,9 + C.0.D.'S ACCEPTED 
‘VISA AND MASTER CARD ORDERS ADD 4% 
INDIANA RESIDENTS ADD 8% SALES TAX 


2721 OHIO STREET 
MICHIGAN CITY, IN 48360 
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THE ULTIMATE MUSIC PROGRAMS! 


(ur customers call them "BEST ONLTHE MARKETI™ 
Were so nue yout agree tnat 


WE'LL PAY YOU TO TRY THEM! 

‘The EUPHONY™ series music programs play pleces up to 50 
‘minutes long with every note shown simultaneously on the 
‘musle stat and keyboard. Notes change color as they are 
played. Piay any portion, change instruments, key and tempo 
{o sult your taste, Select trom 9 instruments or create your 
‘own withthe full power of the Commodore™ sound chip, 
Music ean be programmed to play for hours at atime. Each 
program comes with Euphony Music Collections 1, 2and 3. 


CLASSICAL MUSIC DISKS $19.95 


‘J hours of virtuoso performances music Cosections 12 
£2). Contains many compete work, Inciusing Beethoven's Wakistein 
‘ona, sever! Moca sonatas, Bach's Brandenburg Concerto Mo. 3 and 
‘Fugue in 0 minor, Chopin's Fantaisie impromptu, Wander Massa, pls 
‘ces by Debussey,Coupari, Albani; popula places, yma and 
more, Twordins sat plus 30-page manu 


$39.95 pivss200.sneping 


Our powerful music processor won many new mares na 
tr expanded snout mani colacon (nse above. Crate nd et 
Jong and comix pices of mati. Use oie 22nd potas, tps, 
wow accate, repeats Pu aren eng of mui esa, tomatic 
{70 ntacton and orl Two ih psn 490g marl 


EUPHONY version 30. 


EUPHONY. Same as tuphony ver 20 plus gina music acarea on 
{Epvon!™ and Star Mcronien™ printers. $44.95 yu tim we 








15-DAY MONEYBACK GUARANTEE 
1 eomety ted on hod yur pote pete 8d 8 2 tee 
ene ey onaminy yout Wry eae Rem open et 
On COMMCOORE 44 AND 198 COMRUTINE. AB orders Shipped imme 
staly via fra clans mas COO ara overseas era panne md 2.00 


TCO SOFTWARE 
SS 907-479- ie 
0. irbanks, AK 











~ AGVERisers 
finclex 



































Reader Service Number/Advertiser Page Reader Service Number/Advertiser Page 
102 Abacus 4 27 = 131 In ConTrol . 104 
103 Abby's Discount Software . Intelligent Software. 116 
104 Access Software Inc. 48-51 
105 Acorn of indiana . 58 
106 ActionSoft Corp. 102-103 
107 Aprotek ..... 1BC 
108 Berkeley Softworks 101 
109 Bible Bytes . 60-61 

Brantford Educat . BA 
110 Cardinal Software ... . 47 
141 Central Point Software. 130-31 
112 Cheatsheet Products, Inc. . 8 
113 C-More Products . 97 

C.O.MB. Direct Marketing Corp. 96 140 Superior Micro Systems, Inc. 114 
114 Complete Data Automation, Inc. . . 13 141 TCO Software ...... 116 
115 Compumed .. . Tektonics Plus, inc. . . 8 
116 CompuServe . 142 Tenex Computer Express 105 
117 ComputAbility 143 Triad Computers . 3 
118 Computer Direct 144 Tussey Computer 14-15 


419 Computer Mail Order 

120 Computer Mart. 
121 Computer Mart. 
422 Computer Mart . 
123 Computer Place 






124 Covox, Inc. 

Crown Custom Covers 
125 Electronic Arts Programming Books 
126 Electronic One. vee COMPUTE! Books’ Commodore 64 & 128 
127 Emerald Components International ..... 93 ‘Selections i 
128 Emerald Components International ..... 35 | COMPUTE!'s Gazette Disk Subserpton ‘32 
129 Federal Hill Software . + 98 onl 


COMPUTE!'s Gazette Subscription . 





130 Free Spirit Software, Inc. 








C-84™ + VIC™ + BX-64™ + C-128" + Plus a™ + C-16" « B-120™ + PET™ » COM™ 


Why spend $150 on software 


‘or a $200 computer? 
‘The Intelligent Software Package: One disk, 25 business programs, $19.95 


t 
Fenanentacaltire mi these agar 
"This letter is to tel you that your 
“At last! Something to make my computer do 


There are no hidden fees for shipping or Dr acirantaeen, end no cba to jen, The 
goman sotvere, pi soul Srettcutmers yma 


package is not, 
it Supports all available printers, and will run 
Amigo) with a mnmurh of 10k RAM, incudng the C128 
What you get when you onder the Package: 

‘OBStat, 


ASCII—converts text fies into program 


Loan Analyele—computes france terms, 


Dopraciation—croates depreciation 
schedules. 


Labeler—creates labels 
. File Gopier—copies sequent, program 


Correlation—calcuates sratistical cor- 
relation. 
‘Also other Database and Word Processor 
unites. 


‘ace asc th bet have fe.” 











computer (exces 
inC- Be mase i 





DBStat2—anolyze O/B fies. 


C-MORE 


‘An Operating System for the Commodore 64. 


« USE YOUR COMMODORE LIKE A PC! 

« Let C-More teach you all about business computing! Control 
multiple applications in windows. Word Processing, 
Spreadsheet, Database, Scientific Calculator, Disk Utility and 
Comparative-Buyer programs are all included! 

= Comprehensive 450-page manual provides tutorials, step-by-step 
instructions, examples and illustrations, for any level user! 

« WRITE COMMODORE BASIC PROGRAMS FOR C-MORE!! 


breakeven an 





a 


meeps 


ReportMerge—creates statements 
Baseball Stats—compies team betting | accepted, Cal 
statistics. a 
Index—indexes W/P’s text files. 

‘WPConvert—converts files to other WP 


for 
formats. 





‘sette rot avaiable for Plus 4 or C-16) 


checks from outside USA. 
of 
a fear this ed out 


ere, egress, end 


521/157 /e080/4080) 
isk, or cassette (cas- 


1-800-628-2828 ext. 790 


(mata) Visa and Mastercard Accepted 


or mail $49.95 plus $4.50 shipping & handling 
($6.00 shipping in Canada) 
(Georgia residents add $2.00 sales tax) 


orders; credit cards not 
residents odd 6%, No 
program tpi a valaa 











DBMerge—‘acilitates relational 0/8 
applications. 


Box A Dept. 
Intelligent Software ssn Anselmo, A 84960 
(415) 457-6153 


Qualty Software since 1982 





C-More Products, P.O. Box 81548 Chamblee, GA 30366 
Please allow 4-6 weeks for delivery. 
*Commodore’ is a trademark of Commodore Electronics, Ltd. 















































Simply The Best 


Submarine Simulation In The World! 
kkk Kk 


CRITICALLY ACCLAIMED 


“A superior product” (COMPUTE) 
“By far the best submarine simulation” (ANALOG) 
“Another masterplece from MicroProse” 
(COMMODORE MAGAZINE) 
“Realistic action... outstanding graphics” (RUN) 
“Complex and ‘absorbing. . » a thoroughly 


“You can almost smell diesel oil and feel the deck 
rolling beneath your feet” (ANTIC) 


eeees 


INTERNATIONAL 
AWARD WINNER 


USA: “BEST SIMULATOR” 

(Critics' Choice Award, Family Computing) 

USA: “BEST ADVENTURE GAME FOR THE HOME 
COMPUTER” (Charies Roberts Award For Outstanding 
Achievement, Academy of Adventure Gaming Arts & Designs) 

ENGLAND: “BEST SIMULATION” 

(Oscar Award, Commodore Computing Intemational) 

FRANCE: “BEST SIMULATION” 

(Golden Tilt Award, Tit Magazine) 

GERMANY: “SIMULATION OF THE YEAR” ~ 
(Best Games Of The Year Awards, Happy Computer). 
Esstiatisng NOW Fe Your Favorite ‘Valued MicroProse. 

Call us for the VMR nearest yout 


For Al PEER Computers At A Suggested Retail Of 
‘Only $34; 


° SEES 64/4 HAN * Atari XL/XE 
. compatioies 
CREROR EGA’ colo graph ics) 
. APASA ke ARE CTalifolprorais kel] nol (o.dVo.e diate oLocolol 


And AFA AS fed Retail Of Only $39.95 
With Unique Machine-Specific Graphics and Sound 
Enhancements For: 

* Amiga ° ‘Atati ST * Apple liGS 


fae 


SNAG NE ANRC 
UOOSEREOONIEVE RH ONIValey WD eroaa rane 








adore, Amigt. Apple, IBM and Ata are registered vademarks of Commodore Electronics Lid, Commodore 
reste ‘Apple Computer ie, Iterratonal Machines Inc. and Alar Inc, respectively: 















USE THE BRAINS YOUR COMMODORE 
WASN'T BORN WITH. 


Right at your fingertips 
in CompuServe’s 
Commodore” Forums. 


Our Commodore Forums involve 
thousands of Commodore users 
worldwide. These forums show you 
just how easy it is to get the most 
from your Commodore computer. 


The Commodore Arts and Games 
Forum is for all Commodore 8-bit 
computers, concentrating on music, 
graphics, and games. The Commo- 
dore Communications Forum has 
updates of communications soft- 
ware. The Commodore Programming 
Forum supports programmers and 
developers of Commodore 8-bit 
computers. And the Amiga’ Forum 
serves as the national resource 
for all business and entertain- 
ment applications in the Amiga 
community. 


Data Libraries for non-commercial 
software. Enjoy other tiseful 
services too, like electronic editions 
of popular computer magazines. 

All you need is your Commodore 
computer (or almost any other per- 
sonal computer) and a modem. 

To buy your Subscription Kit, 
see your nearest computer dealer. 


Easy access to free software, 
including free uploads. 


You can easily download first-rate, 
non-commercial software and utility 
programs. Upload your own pro- 
grams free of connect time charges. 
And take advantage of CompuServe's 
inexpensive weeknight and weekend 
rates, when forums are most active 
and standard online charges are Suggested retail price is $39.95. 
just 10¢ a minute. You can go online ‘7 receive our free brochure, or to 
in most areas with a local phone call. order direct, call 800-848-8199 (in 
Plus, you'll receive a $25.00 Ohio and Canada, call 614-457-0802). 
Introductory Usage Credit when If you're already a CompuServe sub- 
you purchase your CompuServe —_scriber, type GO CBMNET (Commo- 
Subscription Kit. dore Users Network) at any ! prompt 


Information you just can’t find to see what you've been missing. 


anywhere else. 


Use the Forum Message Board to CompuServe’ 


exchange mail with fellow members. _ information Services, PO. Box 20212 
Join ongoing, real-time discussions in 800.848.8199 Coens Oe 
a Forum Conference or communicate _ in ohio, cali 614-457-0802 


with industry experts. Scan Forum ans Block Company 








